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PREFACE 


Since its creation in the sixties at Dartmouth College by John G. Kemeny and 
Thomas E. Kurtz, the popularity of the BASIC language has never stopped grow- 
ing. This, first, because BASIC is easy to learn and understand; and second, 
because its flexibility and power are such that it has given birth to numerous "ex- 
tensions” specifically designed for particular systems. 


Business BASIC for the Apple® IIT presents syntax and semantics of the Apple 
BASIC language which, as its name implies, are particularly oriented towards 
business uses. 


This book describes the essential characteristics of Business BASIC, while defin- 
ing the rules and fundamental concepts of the language to allow the reader to: 


1. understand and assimilate the working principle of each instruction, 
command, operator and symbol; and 


2. use all its resources in programs the reader might have conceived 
and written himself, so that the series of progressive examples ex- 
plicates the basic ideas. 


The book is written in the clearest and most concise way possible, with a consis- 
tent visual presentation, to provide an introduction to and a tutorial in BASIC 
programming in general. Reading it does not require any specialized knowledge. 


I have deliberately avoided filling the text with heavy technical explanations 
specific to the system, with the idea that the interested reader will be able to refer 
to the relevant Manuals and/or User's Guide to the Apple III. 


I have also written a second, companion volume, BASIC Keywords for the Apple 
III, which is organized in the form of a dictionary. It can be used as a reference 
either to accompany this book or independently for those who need a quick 
refresher on a concept or command. 


FOREWORD 


Eddie Adamis has, in my view, fulfilled the dearest wishes of the founders of 
Apple: To open the world of personal computing to the nonspecialist. 


He has, in fact, a talent which is all too rare: the ability to take something con- 
sidered obscure and even a little frightening, and make it clear and simple. 


Eddie Adamis’ history highlights the source of this talent. He came to personal 
computing by the most improbable route: composer, music arranger, and Manag- 
ing Director of United Artists Music and Records (France) for 14 years. His pas- 
sion for personal computing started when he was fifty. His acquisition of skill 
and enthusiasm has not dulled his memory; he writes now as he wishes others 
had written for him when he was just learning. 


Eddie Adamis brings two important extras to technical manuals: 


e his own viewpoint; not having been involved with the development of 
the language, Eddie Adamis approaches Business BASIC with a fresh 
eye. 


e not being a computer man by trade, he writes for other nonspecialists 
who want to use the personal computer for their own businesses, with 
a sympathy that is obvious from his attention to detail in making 
everything simple. | 


Business BASIC for the Apple III explores progressively and thoroughly the 
Business Basic language of the Apple III. Each instruction is described, with ‘its 
variations, through clear and precise examples. 


By now everyone will have gathered that I highly recommend this book. Eddie 
Adamis will make your Apple III and Business BASIC even better. 


Jean-Louis Gassee 
President 
Apple Computer France 
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NUMBERS 


Computers recognize and process two types of information—numeric data and 
nonnumeric data. Computers store, interpret and manipulate numbers in dif- 
ferent ways depending on the size of the numbers. Business BASIC classifies 
numbers into three types—real numbers, single precision integers, and long in- 
tegers. This chapter identifies the characteristics of each type of number and pro- 
vides examples of the ways numbers are expressed and displayed. 


REALS 
A real number is any positive or negative number. 
Example: 


123456 
7 123456 


It may contain a decimal point without a fractional portion. 
Example: 


123456. 
_ 129499, 


Ora fractional portion following the decimal point. 
Example: 


123456.123 
- 123456.123 
I 
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e A real number whose absolute value is less than 2.9388E-39 is con- 
sidered equal to 0. 


A real number must be within the range — 1.7E38 to 1.7E38. Exceeding this range 
causes the ?0VERFLOW ERROR message to be displayed. 
CONVENTIONAL NOTATION 


In conventional notation, a real number is normally displayed with six digits, ex- 
cluding any exponent. Significant digits beyond the sixth are rounded off. 


e Trailing 0 (zeros to the right of the decimal point) or leading 0 (zeros te to 
the left of the decimal point) are not displayed. 


Example: 
Real number Display 
0000.1234 1234 
1 I 
1234-9000 1234, 


EXPONENTIAL NOTATION 


e Exponential form is denoted by letter E. (E means times 10 to the 
power of the exponent). The exponent is an optionally signed integer. 


Example: 


1234E —2 
1234E + 2 
123ane 
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Conventional notation Exponential notation 
12.34 1234E —2 

12.34 0.1234E2 

12.34 0.1234E + 2 
1000000000000 1E + 12 


A real number whose absolute value is less than .01 or equal to or greater than 
999999.2 is expressed in exponential notation. 


e Any real number that is within the legal range can be typed in ex- 
ponential notation. 


SINGLE PRECISION INTEGERS 
An integer is any positive or negative whole number without a decimal point. 
Example: 


— 32768 
52707, 


are single precision integers. 


A single precision integer may have up to five digits. Its value is within the range 
— 32768 to 32767. 


e Leading 0 (zeros to the left of the decimal point) are not displayed. 


Negative integers are displayed with a leading minus sign (-—}. 
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LONG INTEGERS 


A long integer is any positive or negative whole number without a decimal 
point. 


Example: 


— 9223372036854775808 
9223375036854775807 


are long (double precision) integers. 
A long integer has eight or more digits (up to 19). Its value is within the range: 
— 9223372036854775808 to 9223375036854775807 


e A value greater than 9223375036854775807 would cause the 
?0VERFLOW ERROR message to be displayed. 


Entering from the keyboard the long integer 

— 9223372036854775808 

would cause the same error message to be displayed. 

e Leading 0 (zeros to the left of the decimal point) are not displayed. 

If negative, long integers are displayed with a leading minus sign (—). 
It is important to understand the identifying characteristics of different numbers 
because many of the rules of Business BASIC depend on your knowledge of these 
distinctions. Given any number, you should be able to identify it as a real 


number, a single precision integer or a long integer and understand how that 
number would be displayed by the computer. 


VARIABLES 


This chapter introduces the concept of variables and explains the rules for identi- 
fying the three numeric variable types. Not surprisingly, the numeric variable 
types correspond with the three types of numbers identified in the previous 
chapter —the real type numeric variable, the integer type numeric variable, and 
the long integer type numeric variable. You will also learn how to create variable 
names and how to recognize and use the three numeric variables. 


e A variable is a place to store a value. 


e Values are assigned to variables using the reserved words LET, 
INPUT, READ and DATA. 


Example: 
LET A=1234 
INPUT A 
READ A 
There are three numeric variable types: 

1.) real 

2.) integer (single precision with 5 displayed. digits). 

3.) long integer (double precision with up to nineteen displayed digits). 


IDENTIFIERS 


e The value type must match the variable type. 
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An identifier attached to the end of the variable name defines the type of the 
variable. 


e The identifiers are: 
a. the percent sign (%) for the integer variable. 
b. the ampersand (&) for the long integer variable. 


In the absence of any of these identifiers, the variable type is considered to be 
real by default. 


Example: 
Variable Type Precision 
V Real 
V% Integer 5 digits 
V& Long Integer 19 digits 


THE REAL TYPE NUMERIC VARIABLE 
Variable names must always begin with a letter. 


You can have from 0 to 63 additional characters after the first letter. The addi- 
tional characters can only be: 


letters, 
digits 
or periods 


Real variables have no identifier appended to the name. 


Example: 


Sales 
T 


Total. Sales, 


Number.of.Items 


' 
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In variable names, lowercase letters are considered equivalent to their uppercase 
counterparts. 


Example: 


Number.of.Items and NU MBER-OF ITEMS 


refer to the same variable. 
Any possible name may be used to create variable names with the exception of 
the reserved words used to refer to statements and functions of the Business 
BASIC language. 


(See the Alphabetical List of Reserved Words. } 


THE INTEGER TYPE NUMERIC VARIABLE 
Variable names must always begin with a letter. 


You can have from 0 to 63 additional characters after the first letter. The addi- 
tional characters can only be: 


letters, 
digits 
or periods. 


¢ The last character of the name must always be the integer type iden- 


tifier %. 
Example: 
Sales% 
1 
Total Sales 


Number.of.Items% 


are integer variable names. They can only store integer type values. 
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e Any assignment instruction of any other value type would generate 
the 7ILLEGAL QUANTITY ERROR message. 


Leading 0 (zeros to the left of the decimal point) are not displayed. 


If negative, integer numbers are displayed with a leading minus sign 


(—). 


In variable names, lowercase letters are considered equivalent to their uppercase 
counterparts. 


Example: 


Number.of.Items% and NUMBER.OF ITEMS% 


refer to the same variable. 
Any possible name may be used to create variable names with the exception of 
the reserved words used to refer to statements and functions of the Business 


BASIC language. 


(See the Alphabetical List of Reserved Words.) 


THE LONG INTEGER TYPE VARIABLE 
Variable names must always begin with a letter. 


You can have from 0 to 63 additional characters after the first letter. The addi- 
tional characters can only be: 


letters, 
digits 
or periods. 
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e The last character of the name must always be the long integer type 
identifier & 
t 


Example: 


Salest 


Total.Sales® 


Number.of.Items& 


are long integer variable names. ‘They may not be mixed in arithmetic expres- 
sions with regular integers or reals. 


e Leading 0 (zeros to the left of the decimal point) are not displayed. 


If negative, long integer numbers are displayed with a leading minus 
sign (—). 


In variable names, lowercase letters are considered equivalent to their uppercase 
counterparts. 


Example: 


Number.of.Items& and 1M BER-OF ITEMS 


refer to the same variable. 


Any possible name may be used to create variable names with the exception of 
the reserved words used to refer to statements and functions of the Business 
BASIC language. 


(See the Alphabetical List of Reserved Words.) 
A computer program often contains dozens of variables. Now that you know the 


rules for creating numeric variable names, identifying the different types of 
numeric variables in a program should be easy. 
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FUNCTIONS 


Computers perform many diverse operations on numeric and nonnumeric data. 
Business BASIC contains several functions that perform commonly used opera- 
tions. This chapter describes a function, its syntax, and the modes in which a 
function may be used. 


A function consists of a series of prewritten instructions that perform some 
defined operation(s). 


ARGUMENT 


An argument is any numeric expression that is required for a function to 
operate. The argument of a numeric function can only be numeric. 


Arguments are always enclosed in parentheses following the function name. 
Example: 
SIN 
u 
function name 
SIN (7-23) 


argument 


10 
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In the same way that a variable is assigned the value of an 
arithmetic expression. 


Example: 
Variable = (2*3) + (12 42) 


a function is assigned the single value of the operation it has per- 
formed. 


To display the returned value, a function must be used with a 
PRINT statement. 


Example: 


PRINT SIN(1.23} 


returns the value .942489 


EXECUTION MODES 
Numeric functions may be used: 
1. in immediate mode. 
Example: 


PRINT SIN(1.23} 


is a statement typed directly on the keyboard and immediately ex- 
ecuted after you press the RETURN or ENTER key. 
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2. in deferred mode. 


Example: 


10 PRINT SIN(1.23} 


is a program statement with a line number stored in memory for 
a deferred execution. 


You should now be familiar with what a function is and its general syntax. The 
following three chapters focus on specific functions available in Business BASIC 


and give examples of their use. 
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ARITHMETIC FUNCTIONS 


Business BASIC contains seven arithmetic functions—the absolute value func- 
tion, the exponentiation function, the integer function, the logarithm function, 
the random function, the sign function, and the square function. These functions 
perform commonly used arithmetic operations. This chapter defines each func- 
tion, details the arguments that each function accepts, and provides examples of 
how they manipulate numbers and are used in calculations. 


e A function is a built-in routine that performs a standard processing 
task. 


The argument of a function is a numeric expression that is processed 
by the said function. 


The arithmetic functions described here are: ABS, EXP, INT, LOG, 
RND, SGN, and SOR. 


ABS 
(ABS standing for ABSOLUTE} 


ABS returns the absolute value of a numeric expression. 


Enclosed between parentheses, a numeric expression can be: 


1. a numeric constant. 


Example: 
PRINT ABS(0) Returns 0 
PRINT ABS(10} Returns 10 
PRINT ABS|- 10) Returns 10 


The absolute value of a signed constant is its value without regard 
to its sign. 
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2. anumeric variable. 


Example: 


A= -25.65: PRINT ABS(A} Returns 25.65 
B=30.36-40: PRINT ABS(P) Returns 9.64 


3. an arithmetic expression. 


Example: 


PRINT 10 + ABS( - 20.36) Returns 30.26 
PRINT ABS(- 12*6) Returns 72 


EXP 


(EXP standing for EXPONENTIATION) 


. EXP raises the constant E (2.718282) to the power indicated by the argument 
value. 


Enclosed between parentheses, an argument can be: 
1. a numeric constant. 


Example: 


PRINT EXP(2} Returns 7.3890561 
PRINT EXP(4) Returns 54.5981501 
if 
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2. anumeric variable. 


Example: 


PRINT EXP(A) Returns 7.3890561 


A=2: 
B=4: PRINT EXP IP) Returns 54.5981501 


3. an arithmetic expression. 


Example: 
10 FOR I=2 TO 6 STEP 2 
20 PRINT EXP(I) Returns 7.38906 for I=2 


30 NEXT I 54.5982 for I=4 
403.429 for I=6 


INT 
(INT standing for INTEGER) 


INT returns the largest whole number that is smaller than or equal to a numeric 
expression. 


Enclosed between parentheses, a numeric expression can be: 
1. a numeric constant. 


Example: 


PRINT INT(1.234) Returns 1 
PRINT INT 849) Returns 12 
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2. a numeric variable. 
Example: 


A=25.65: PRINT INT(A} Returns 25 
B= —-—25.65: PRINT me Returns -—26 


3. an arithmetic expression. 


Example: 


PRINT 10 + INT(20.36) Returns 30 
PRINT INT(12.1*6) Returns 72 


LOG 


(LOG standing for LOGARITHM) 
LOG returns the natural logarithm (base E = 2.718282) of the argument value. 
Enclosed between parentheses, the argument can be: 

1. a numeric constant. 


Example: 


PRINT LOG(2) Returns .69314718 
PRINT LOG(4) Returns 1.38629436 
t. 
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2. a numeric variable. 
Example: 


A=2: PRINT LOG(A} Returns .69314718 
B=4: PRINT LOG(B) Returns 1.38629436 


3. an arithmetic expression. 
Example: 


10 FOR I=2 TO 6 STEP 2 
20 PRINT LOG(I) Returns .69314718 for I=2 


30 NEXT I Returns 1.38629436 for I=4 
Returns 1.79175947 for I=6 


RND 
(RND standing for RANDOM) 


RND returns a random real positive number. This number may or may not vary 
depending on the argument value. | 


1. Witha ? as an argument value, RND returns a random real 


positive number less than 1. 
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Example: 
PRINT RND(0O) might return .717628 


Each time it is used thereafter, RND (0) will return the most recent 
previously generated random number. 


Example: 
FOR I=1 TO 10:PRINT RND (0):NEXT I 
will return ten times the same number as above. 


e The CLEAR and NEW statements would not affect the generated ran- 
dom number. 


Example: 


10 PRINT RND (0} 
— 20 NEW 

30 PRINT RND (0} 
— 40 CLEAR 

50 PRINT RND (0} 


The three PRINT statements will return the same number. 


2. With an argument value greater than 0, RND will return a dif- 
ferent number each time it is used. 


Example: 


FOR I=1 TO 10: PRINT RND(1): NEXT I 
t 


will return ten different numbers. 
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3. With a negative argument value, RND will return the same 
number each time the same argument is used. 


Example: 


If PRINT RND(-1) had returned .350395 and PRINT RND(- 2) 
had returned .700791, 


all subsequent statements such as: 
PRINT RND(-1) and PRINT RND(-2) 


will always return .350395 and .700791 respectively. 


4. With positive arguments used immediately after negative arguments. 
Example: 
When executed sequentially, the two following loops: 


10 FOR I=1 TO 3: PRINT RND (ai: NEXT I 


negative argument 


20 FOR J=1 TO 3: PRINT RND (I): NEXT J 
! 


positive argument 


will return the same random number sequences each time. 
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Example: 

.350395 

.700791 

0511861 for the first loop 
285137 

.301013 

127706 for the second loop 

To get a whole number, use the INT function. 


Example: 


PRINT INT (1*RND (1}) +6 
Tt 


will return a random whole number between 1 and 6 


SGN 


(SGN standing for SIGN) 
SGN returns the sign of a numeric expression: 
—1 if the expression is negative 
O if the expression is equal to 0 
1 if the expression is positive 


Enclosed between parentheses, a numeric expression can be: 


1. a numeric constant. 


Example: 
PRINT SGN (0) Returns 0 
PRINT SGN (10) Returns 1 
PRINT SGN (10) Returns -1 


t 
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2. anumeric variable. 


Example: 


A=10: PRINT SGN (A) Returns —0 
B=10: PRINT SGN (B} Returns 1 
C=-10: PRINT SGN I) Returns —1 


3. an arithmetic expression. 


Example: 
A=0: B=10: C=—-10 
PRINT SGN (B + C} Returns 0 


PRINT SGN (A*2+B%2) Returns 1 
PRINT SGN (A+(C%2)}) —- Returns —1 


SOR 
(SOR standing for SQUARE ROOT} 
SOR returns the square root of a numeric expression. 
Enclosed between parentheses, a numeric expression be be: 
1. a numeric constant. 


Example 


PRINT SOR (0) Returns 0 
PRINT SOR (79) Returns 3.16227766 
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2. anumeric variable. 


Example 


A=0: PRINT SOR (A) Returns 0 
B=10: PRINT SOR Fe Returns 3.16227766 


3. an arithmetic expression. 


Example 


A=0: B=10 

PRINT SOR (A + (2*5)*B) Returns 10 
PRINT SOR (A42+BA42}) Returns 10 
PRINT SOR (B “B} Returns 100000 


As you can see, arithmetic functions are powerful built-in calculating tools. You 
will find many opportunities in your programs to take advantage of their power. 
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TRIGONOMETRIC FUNCTIONS 


In additon to the seven arithmetic functions discussed in the previous chapter, 
Business BASIC provides four trigonometric functions —the arc tangent function, 
the cosine function, the sine function and the tangent function. The following 
chapter describes these functions and their allowable arguments, and provides 
examples of their use. 


e A function is a built-in routine that performs a standard processing 
task. 


The argument of a function is a numeric expression that is processed 
by the said function. 


The trigonometric functions described here are: ATN, COS, SIN, and 
TAN. 


ATN 
(ATN standing for ARCTANGENT}] 


ATN returns the arc-tangent of an argument expressed in radians. 


Enclosed between parentheses, an argument can be: 
1. a numeric constant. 
Example: 


PRINT ATN(2) Returns 1.10715 
PRINT ANG) Returns 1.32582 
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2. anumeric variable. 
’ Example: 


PRINT ATN(A) Returns 1.10715 


A=2: 
B=4: PRINT Aa Returns 1.32582 


3. an arithmetic expression. 
Example: 
10 FOR I = 2 TO 6 STEP 2 
20 PRINT ATN(I) Returns 1.10715 for I=2 


30 NEXT I 1.32582 for [=4 
Returns 1.40565 for I=6 


COS 
(COS standing for COSINE) 
COS returns the cosine of an argument expressed in radians. 
Enclosed between parentheses, an argument can be: 
1. a numeric constant. 
Example: 


PRINT COS(2) Returns — .416147 
PRINT costa) Returns — .653644 
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2. a numeric variable. 


Example: 


PRINT COS(A) Returns —.416147 


A=2: 
B=4: PRINT cost) Returns — .653644 


3. an arithmetic expression. 
Example: 
10 FOR I = 2 TO 6 STEP 2 
20 PRINT COS(I) Returns — .416147 for I=2 


30 NEXT I — .653644 for I=4 
—.96017 for I=6 


SIN 
(SIN standing for SINE) 
SIN returns the sine of an argument expressed in radians. 
Enclosed between parentheses, an argument can be: 
1. a numeric constant. 
Example: 


PRINT SIN(2) Returns .909298 
PRINT SING) Returns —.756802 
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2. anumeric variable. 
Example: 


A=2: PRINT SIN(A} Returns .909298 
B=4: PRINT SIN(P} Returns — .756802 


3. an arithmetic expression. 
Example: 
10 FOR I = 2 TO 6 STEP 2 
20 PRINT SIN(I) Returns .909298 for 1=2 


30 NEXT I —.756802 for [=4 
~— 279416 for I=6 


TAN 
(TAN standing for TANGENT) 
TAN returns the tangent of an argument expressed in radians. 
Enclosed between parentheses, an argument can be: 
1. a numeric constant. 
Example: 


PRINT TAN(2) Returns — 2.18504 
PRINT TANG Returns 1.15782 
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2. a numeric variable. 


Example: 


2: PRINT TAN(A) Returns — 2.18504 
4: PRINT TANI?) Returns 1.15782 


A= 
B= 


3. an arithmetic expression. 


Example: 


10 FOR I = 2 TO 6 STEP 2 


20 PRINT TAN (I) ~2.18504 for I=2 
30 NEXT I 1.15782 for 1=4 
— .291006 for I=6 


You should begin to sense the convenience arithmetic and trigonometric func- 
tions provide for you when programming. Note that with the exception of the 
random function, all arithmetic and trigonometric functions will take numeric 
constants, numeric variables, or arithmetic expressions as their arguments. 


6 


TYPE CONVERSION FUNCTIONS 


When programming in Business BASIC it is often useful to covert one data type 
into another data type. This chapter describes Business BASIC’s four type conver- 
sion functions—CONV, CONV%, CONV&, and CONV$. These functions operate 
on numeric expressions and/or string expressions and return either a real, in- 
teger, long integer, or string value. 


e A type conversion function is a built-in routine that performs a de- 
fined processing task. 


The type conversion functions described here are: CONV, CONV%, 
CONV&, and CONV$. 


CONV 
(CONV standing for CONVERSION) 
1. With a numeric expression as an argument: 
CONV evaluates the argument and returns a real value. 


Example: 


PRINT CONV(922337-203685} returns 718652 


e Beyond six digits, the value is expressed in exponential notation. 


Example: 


PRINT CONV(9223378-3036057) returns 0187928 + 06 
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2. With a string expression as an argument: 


CONV converts the argument into a numeric expression and returns a real 
value. 


Example: 


PRINT CONV(''123456’") returns 123456 
PRINT CONV(''1234567'') returns 234508 + 06 


rounding off 


PRINT 
CONV (''1234567.123'") returns NeSAote + 06 


rounding off 


PRINT CONV(''123.4567'") returns 128.491 


rounding off 
X= VAL('"1234567.123''): PRINT CONV(X) and 
PRINT CONV (VAL('’1234567.123'"}) 


return the same value: 284508 + 06 


rounding off 


CONV% 
(CONV standing for CONVERSION, followed by a percent sign %) 


e. The percent sign (%) is an identifier that defines a function or a 
variable name as being of the integer type. 
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With a numeric expression as an argument, CONV% evaluates the argument and 
returns an integer value, rounded off to the nearest whole number. 


Example: 


PRINT CONV%(123.94) returns 124 
PRINT CONV%({- 123.94) returns — 12 


rounding off 


e The value returned by the function must be within the range — 32768 
to 32767, otherwise an 7?0VERFLOW ERROR message is displayed. 


CONV& 


(CONV standing for CONVERSION, followed by an ampersand &} 


e The ampersand (&) is an identifier that defines a function or a variable 
name as being of the long integer type. 


1. With a numeric expression as an argument: 
CONV& evaluates the argument and returns a long integer value. 
Example: 
PRINT CONV&(9876543210987654321 — 1234567890123456789) 
returns -—3416920397562346125 
The returned value must be within the range: 
— 9223372036854775808 to 9223372036854775807 


e Exceeding this range would cause an 7?OVERFLOW ERROR message 
to be displayed. 
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2. With a strong expression as an argument: 


CONV& converts the argument into a numeric expression and ex- 
tracts the integer portion of the value. 


Example: 


PRINT CONV&(‘'1234567.123'") returns 1234567 
t 


no rounding off 
X + VAL(''1234567.123'") : PRINT CONV&(X) and 
PRINT CONV&(VAL("’1234567.123'")} 


return the same value : 1234567 


CONVS 
(CONV standing for CONVERSION, followed by a dollar sign $} 


e The dollar sign ($) is an identifier that defines a function or a variable 
name as being of the string type. 


With a numeric expression as an argument, CONVS$ evaluates the argument and 
returns a string value. 


Example: 


A=10203 :B=20304 :T$=CONVS{(A +B} 
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The evaluation of the numeric expression returns 30507. The numeric value 
30507 is then converted into a string expression. (same as ’30507’) and assigned 
to the string variable T$. You then can use such string functions as LEN, LEFT$, 
RIGHT$ or MID$ to perform string manipulations. 


Example: 
PRINT LEN(T$) would return 5 
PRINT LEFT$(T$,1) would return 3 
PRINT MID$(T$,2,3) would return 050 
PRINT RIGHT$(T$,1) would return 7 


The CONV and CONV& functions allow both numeric expressions and string ex- 
pressions as their arguments, whereas the CONV% and CONV$ functions 
operate only on numeric expressions. Use the CONV function to convert a 
number or string to a real number, the CONV% function to convert a number in- 
to an integer, the CONV& function to convert a number or string into a long in- 
teger, and the CONV$ function to convert a number into a string. 


USER-DEFINED FUNCTIONS 


Arithmetic functions, trigonometric functions, and type conversion functions are 
all predefined functions in Business BASIC. It is often advantageous, however, 
for users to define functions of their own. Business BASIC provides this capabili- 
ty with user-defined functions. This chapter describes how to write user-defined 
functions and the modes in which they can operate. 


e Besides the Business BASIC built-in functions such as the arithmetic 
and trigonometric functions previously described in Chapters 4 and 5, 
you can code your own functions and call them when needed in the 
program. 


User-defined functions are specified with the DEF and FN 
statements. 


DEF FN 
(DEF FN standing for DEFINED FUNCTION} 
A user-defined function may be used: 
1. in deferred mode. 
Example: 


10 DEF FNA(X) =INT(X*100 + .5)/100 
t | 
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e Statements with line numbers remain in memory and can be executed 
when needed with the RUN command 


2. in immediate mode. 
Example: 


ton FNA(6.123456} 


e Statements without line numbers are executed immediately after you 
press the RETURN or ENTER key. 


Immediate execution is possible as long as: 
a. the function has been defined first in a program line. 
Example: 
10 DEF FNA(X) =INT(X*100 + .5)/100 
b. the said program line has been executed with the RUN command 
c. the defining program is still in memory. 
Example: 
PRINT FNA(6.123456) would return 6.12 
e Using an FN function before it is defined would cause the 7UNDEF'D 
FUNCTION ERROR message to be displayed. 
The DEF FN statement consists of: 
1. a line number. 
Example: 


10 DEF FNA(X)=INT(X*100 + .5}/100 
if 
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2. the keyword DEF. 
Example: 


10 DEF FNA(X) =INT(X*100 + .5)/100 


3. the keyword FN. 
Example: 


10 DEF FNA(X) =INT(X*100 + 5)/100 


4. the function name. 
Example: 


10 DEF FNA(X] =INT(X* 100 + 5)/100 


5. the dummy argument of the function in parentheses. 
Example: 


10 DEF FINA(X) =INT(X*100 + 5/100 


6. the assignment symbol (equals sign). 
Example: 


10 DEF ENA(X) =INT(X* 100 + 5)/100 


7. the defining numeric expression. 
Example: 


10 DEF FINA(X}—INT(X*100 + 5/100 
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e The defining expression may be any legal arithmetic expression. 


If the argument of the function does not appear in the defining 
expression, the function's argument is ignored in evaluating the expression. 


Example: 


10 DEF BNB(A) = EN TRND(3)° 100} 


Example: 


PRINT FNB(X) would return a random 
number 


e Functions may be redefined when needed. 
If Business BASIC does not provide a function you need for your program, create 


your own user-defined function. You will probably find the opportunity to use 
the function you created in other programs as well. 
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STRINGS 


So far the discussion of numbers, variables and functions has been primarily 
limited to numeric data. A computer recognizes and interprets non-numeric data 
as “strings.” Here the concept of a string is introduced and the rules for form- 
ulating strings and string variables are defined. 

A string is a sequence of characters enclosed within quotation marks. 


Example: 


’’string’’ 


ee 


With the exception of quotation marks, strings may contain any combination of: 
1. the twenty-six letters of the alphabet (lowercase or uppercase). 
Example: 


‘'Business BASIC from A to Z’’ 


2. the ten digits from 0 to 9. 
Example: 


‘Item number 4234007890" 


3. spaces. 
Example: 


“Item number ; Quantity received Quantity sold’’ 
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4. signs and symbols. 
Example: 


"$72,200 + 24%!" 
{ 1 of 


5. graphic characters. 
e The maximum length of a string is 255 characters. 
A string with no characters is called a null string or empty string. 
Example: 


Ag="""" 
t 


means that string variable A$ has been assigned a null string. 


STRING VARIABLES 


e A string variable is a variable that is used to refer exclusively to a 
string. 


e Only strings may be assigned to string variables. 
For example, 


A$='’Business BASIC Reference Book’’ is a valid string assignment 
statement. 


A$ = 1234 would cause a 7TYPE MISMATCH ERROR message to be 
displayed. 
String variables must always end with a dollar sign ($). 


Example: 


X1$ 

Z12$ 
Tax$ 
Tax.Rate$ 


Variable names must always begin with a letter. 
Example: 


X1$ 
Z12$ 
Tax$ 
pa Rates 


You can have from 0 to 63 additional characters after the first 
letter. The additional characters can only be: 


letters, 

digits 

or periods. 
Example: 


Tax.Rate.for. Year.1983$ 


is a valid 23-character-long string-variable name. 


In variable names, lowercase letters are considered equivalent 
to their uppercase counterparts. 


Example: 


Number. of Items and NUMBER. OF.ITEMS 


refer to the same variable. 


Business BASIC's reserved words cannot be used as variable names. 


(See the Alphabetical list of Reserved Words) 
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As with numeric variables, it is a good idea to assign string variables names that 
clearly identify how the variable is used in the program. If you need a variable 
for a customer name, create a variable called “customer$." Your program will be 


easier to read and maintain with well-chosen variable names. 


STRING FUNCTIONS 


Business BASIC contains twelve string functions—LEN, LEFT$, RIGHTS$, 
MID$, VAL, STR$, ASC, CHR$, INSTR, SUB$, TEN and HEX$. These functions 
are all used to manipulate string expressions. This chapter defines each function 
and provides many examples of their use in programming. 


e A string function is a built-in routine that performs a defined pro- 
cessing task. 


e The argument of the string function must be within parentheses. The 
string expression must be within quotation marks. 


e The string functions described here are: 


LEN, LEFT$, RIGHT$, MID$, VAL, STR$, ASC, CHR$, INSTR, SUBS, 
TEN, and HEX$. 


LEN 
(LEN standing for LENGTH) 


LEN returns the length (number of characters) of a string expression. 


A string expression can be: 
1. a string constant. 
Example: 


PRINT LEN(’7AFTERNOON’’} Returns 9 
PRINT VEN ATESE +E/R%NIO ON’) Returns 17 
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2. a string variable. 
Example: 


A$='’AFTER"”’: B$=’’NOON’’ 
PRINT LEN(A$) Returns 5 
PRINT PEN(ES) Returns 4 


e The concatenation operator ( + ) is used to combine two or more str- 
ings to form one string. 


Example: 


A$="'AFTER’’: B$='’NOON”’ 
PRINT LEN(A$ + B$) Returns 9 
T 


e LEN counts all characters including blank spaces. 


Example: 
PRINT eee’ el Returns 5 


e A string expression containing more than 255 characters would cause 
the ?STRING TOO LONG ERROR message to be displayed. 


LEFTS$ 
(LEFT$ standing for LEFT most, followed by a dollar sign $) 


LEFTS$ extracts the requested leftmost number of characters from a specified 
string expression. 


Format: 


LEFT$ istring expression, pumeric expression) 


string number of characters to be 
extracted 
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A string expression can be: 
1. a string constant. 
Example: 


PRINT LEFT$("’AFTERNOON’’,3) Returns AFT 
PRINT LEFTS(‘AFTERNOON””,5| Returns AFTER 


2. a string variable. 
Example: 


A$ ='’AFTERNOON”’ 
PRINT LEFT$(A$,3}) Returns AFT 
PRINT PEPTS(28,5) Returns AFTER 


A numeric expression can be 


1. a numeric constant: PRINT LEPTS(A$ 3} 


2. a numeric variable: PRINT LEPTS(AS 4 


3. an arithmetic expression: PRINT PEPTS(AS 2 *2) 


RIGHTS 
(RIGHTS standing for RIGHT most, followed by a dollar sign $) 


RIGHTS extracts the requested rightmost number of characters from a specified 
string expression. 
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Format: 


RIGHTS$ string expression, qumeric expression} 


string number of characters to be extracted 


A string expression can be: 
1. a string constant. 
Example: 


PRINT RIGHTS (’ ‘AFTERNOON” 4) Returns NOON 


PRINT RIGHTS, AFTERN OON’’,7} Returns TERNOON 


2. a string variable. 
Example: 


A$ ="AFTERNOON”’ 
PRINT RIGHTS (A$,4) Returns NOON 
PRINT RIGHTS (AS,7) Returns TERNOON 


The numeric expression can be: 


1. a numeric constant: PRINT RIGHTS(A$,4) 
t 


2. a numeric variable: PRINT RIGHTS(AS.A) 


3. an arithmetic expression: PRINT RIGHT$(A$,242) 
I 
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MID$ 


(MID$ standing for MIDDLE, followed by a dollar sign $) 


MID$ extracts the requested number of characters from a string expression, 
starting at a specified character position. 


Format: 
MID$ (string expression, numeric expression, numeric expression) 
string starting position number of characters 
counting from the 
left 


The string expression can be: 


1. a string constant. 


Example: 


PRINT MID$(’’AFTERNOON’’,6,4) Returns NOON 
PRINT MIDS ("APTERNOON™ 1S} Returns AFTER 


2. a string variable. 


Example: 


A$=''AFTERNOON”’ 

PRINT MID$(A$,6,4} Returns NOON 

PRINT MID$(A$,1,5} Returns AFTER 
t 
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The numeric expressions can be: 


1. numeric constants: MIDS$(AS$, a 


2. numeric variables: MID$ AS 8) 


3. arithmetic expressions: MIDS(AS 2°0,2 A 2) 


VAL 
(VAL standing for VALUE) 
VAL converts a string expression into a numeric expression. 
A string expression can be: 
1. a string constant. 
Example: 


PRINT VAL(’’12345’") Returns 12345 
PRINT. VAM 129.49") Returns 123.45 


2. a string variable. 
Example: 


A$ =''12345"": B$=''123.45" 


PRINT VAL(A$} Returns 12345 
PRINT vals) Returns 123.45 
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e Conversion of a string expression into a numeric expression permits 
subsequent arithmetic computations. | 


Example: 
A$=''123.45""; A=VAL(A$) 
PRINT INT(A} Returns 123 
PRINT SIN(INT(A)) Returns —.459903491 
STR$ 


(STR$ standing for STRING, followed by a dollar sign $) 


STR$ converts a numeric expression into a string expression. 


A numeric expression can be: 
1. a numeric constant. 
Example: 


PRINT STR$(12345) Returns 12345 
PRINT STRS(123.45} Returns 123.45 


2. anumeric variable. 
Example: 


A=12345: B=123.45 | 
PRINT STR$(A) Returns 12345 
PRINT STRS(" Returns 123.45 


STRING FUNCTIONS 47 


e Conversion of a numeric expression into a string expression permits 
total manipulation by the string functions. 


Example: 
A= 123456789: A$ =STR$(A} 
PRINT LEFT$(A$,4) Returns 1234 
PRINT RIGHTS$(A$,5) Returns 56789 


ASC 


(ASC short for ASCII standing for American Standard Code for Information 


Interchange} 


ASC returns the ASCII numeric code of the first character of a string expression. 


A string expression can be: 


1. a string constant. 


Example: 


PRINT ASC(’‘A’") Returns 65 
PRINT ASE(NADAM™) Returns 65 


2. a string variable. 


Example: 


A$=""A": B$="’ADAM”’ 
PRINT ASC(A$) Returns 65 
PRINT ASCIES} Returns 65 
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3. a substring function. 


Example: 


A$=""ADAM" 
PRINT ASC(LEFTS(A$,1) Returns 65 


e 65 is the ASCII numeric code for letter A. 


CHR$ 


(CHR$ standing for CHARACTER, followed by a dollar sign $) 


CHR$ converts an ASCII numeric code and displays the character 
it stands for. 


e The argument must be an integer number. 
The argument can be: 
1. a numeric constant. 


Example: 


PRINT CHR$(65} Returns A 
PRINT CHRS (96) Returns B 


2. a numeric variable. 


Example: 


X=65: Y=66 
PRINT CHR$(X) Returns A 
PRINT CHRS (7) Returns B 
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3. an arithmetic expression. 
Example: 


X=30: Y=35 
PRINT CHRS$(X + Y) Returns A 
PRINT CHRS (4 +Y+1) Returns B 


e 65 is the ASCII numeric code for letter A 
66 is the ASCII numeric code for letter B 


INSTR 
(INSTR standing for IN STRING} 


INSTR searches from a specified starting position the first occurence of a sub- 
string (i.e. target string) within a string expression (i.e. subject string). 


Format: 


INSTR (string expression, string expression, numeric expression) 


subject string target string starting position 
A string expression can be: 
1. a string constant. 


Example: 


PRINT INSTR(’’BUSINESS BASIC’’,’’I’’,1) Returns 4 
PRINT INSTRU BUSINESS Basten | Returns 13 
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2. a string variable. 
Example: 
A$=’’BUSINESS BASIC’’: B$=''I'’ 


PRINT INSTR(A$,B$,1) Returns 4 
PRINT INSTR (AS 254] Returns 13 


e The value returned by the INSTR function is the numeric value of the 
position of the target string’s first character within the subject string 
starting at the specified position. 


e The subject string is searched from left to right. 


e If the target string is not found INSTR returns a 0. 


SUB$ 
(SUB$ standing for SUBSTITUTE, followed by a dollar sign $) 


SUB$ replaces any part of a string expression with a substring starting at a 
specified position. 


Format: 


SUB$ (string expression, substring, pumeric expression} 


starting position 
Example: 
In the following program 


10 A$='’ARITHMETIC EXPRESSIONS” 
20 B$=’’COMPUTATION”’ 

30 SUBS (A$,12)=B$ 

40 PRINT A$ 

50 END 
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PRINT A$ will return 


ARITHMETIC COMPUTATION 


TEN 


TEN returns the decimal equivalent of the last four characters of a string expres- 
sion representing a hexadecimal value. 


Example: 
In the following program 


10 DIM H$(15) | 

20 FOR I=1 TO 15 

30 READ H§(I) 

40 PRINT TEN(H$(I)), 

50 NEXT I 

60 DATA '70001’", "0002’", '0003"", ''0004"", '0005’", "70006" 
70 DATA ''0007’", '70008’", "70009’", "000A", ‘’000B’", ’7000C”" 
80 DATA ''000D’’, ''000E’’, ‘’000F”’ 


PRINT TEN(H$(I}) will return 


1 2 3 4 fe) 6 
7 8 9 10 11 12 
13 14 15 


e The returned decimal value will be in the range — 32768 to + 32767 


Any valid string constant may precede the hexadecimal value. 
Example: 
PRINT TEN(’’conversion of the hexadecimal value CCCC’’) 


will return 
— 13108, the last four characters representing a hexadecimal value. 
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HEX$ 


(HEX$ standing for hexadecimal, followed by a dollar sign $) 
HEX$ returns a string which 


represents the hexadecimal value of the decimal argument. 


Example: 


In the following program 
10 FOR I=1 TO 15 
20 PRINT HEX$(Jj, 
30 NEXT I 


PRINT HEX$(I) will return 


1 2 3 4 5 6 
7 8 9 A B C 
D E F 


e The decimal argument of the function is rounded to an integer before 
it is evaluated. For instance, 15.36 would be rounded to 15 before the 
equivalent hexadecimal value (F) is returned. 


The argument must be in the decimal range — 65535 to + 65535. 


As you can see, string functions are handy tools to use when working with string 
expressions. They provide an easy means of searching for and extracting data 
from string expressions, and for converting string and number expressions to and 
from different kinds of values (ASCII, hexadecimal, etc.). 
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STATEMENTS 


You communicate with the computer through statements,- or lines of instruc- 
tions. The previous chapters provided many examples of statements in their 
discussions of numbers, variables and expressions. Now you'll discover how 
Business BASIC executes statements and how to write a multi-statement line of 
code. 

A statement is an instruction that tells the computer to perform a precise task. 


Example: 


PRINT ‘’’This is a statement’’ 


Statements can be used: 
1. in immediate mode. 
Example: 


PRINT ’’This is an immediate mode statement’’ 


e Statements without line numbers are executed immediately after you 
press the RETURN or ENTER key. 
2. in deferred mode. 
Example: 


0 PRINT ’’This is a program statement’’ 
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e Statements with line numbers remain in memory and can be executed 
when needed with the RUN command. 


Each program statement consists of: 


1. a line number. 


Example: 


ri PRINT ABS(-— 10) 


2. one or more keywords. 


Example: 


30 PRINT ABS| — 10] 
| 


3. one or more arguments within parentheses. 
Example: 


30 PRINT ABS(- 10) 
t 


A program is a sequence of statements. 
Example: 


10 PRINT ABS(10- 10} 
20 PRINT ABS(10} 

30 PRINT ABS(- 10} 

40 PRINT ABS(10-20) 

50 A=0: B=10: C=-10 

60 PRINT ABS(A), ABS(B), ABS(C} 
70 END 


e No statement or statement list may exceed 250 characters. 
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LINE NUMBERS 


Business BASIC executes a program by starting at the lowest line number and 
proceeding to the next higher number. 


Line numbers must be integers in the range 0 to 63999. 


The line numbers must be in increasing numerical order. 
If a new line number conflicts with a line number that already exists in memory, 
the old line will be replaced by the new one. 


A list of statements sharing one line number must be separated by colons. 


Example: 


50 A=0: B=10: C=-10: PRINT ABS(A),ABS(B),ABS(C): END 
t t t t 


A program is a sequence of statements and their working interrelationship with 
each other. When you are unsure of the syntax of a statement you wirte, you can 
easily test the statement outside of the program in immediate mode. 
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EXPRESSIONS 


This chapter defines an expression and a few general rules concerning expres- 
sions. Two basic elements of expressions are also discussed—operators and 
operands. : 


e Expressions are formed from constants, variables and operators. 

There are three kinds of expressions: 

1. the numeric (arithmetic) expression. 

2. the relational (logical) expression. 

3. the string expression. 
Expressions may consists of: 

1. single constants: PRINT 100+2 

2. single variables: PRINT X*Y*Z 

3. an elaborate grouping of operators and operands. 

Example: 
PRINT ATN/(1/SOR(X*X — 1)) 


OPERATORS 


Operators are symbols that indicate the type of arithmetic computation to be 
performed. 


Example: 
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Operators +, —, *, and / indicate that the arithmetic computations to be per- 
formed are: 

an addition 6+2 

a subtraction 6-2 

a multiplication 6*2 

and a division 6/2 
OPERANDS 


Operands are the variables, constants and/or expressions used to perform the 
computations indicated by the operators. 


Example: 


6+2 

A-2 

A*B 

B/(C “B + 2) 
it 


6, 2, A, B, and (C “B + 2} are operands. 


e For an expression to be evaluated, operands must be of the same type. 
Only integer and real operands may be mixed in expressions because 
Business BASIC automatically converts all integers into reals before 
an expression can be evaluated. 


Before you can mix string or long integer operands with other types of operands 
within a single expression, you must first convert them toa common type by us- 
ing the type conversion functions such as CONV, CONV&, CONV$, and 
CONV%. 


(See Chapter 6.) 


An understanding of expressions, operators and operands prepares you for the 
next three chapters on expressions. Chapter 12 discusses numeric (arithmetic) ex- 
pressions, Chapter 13 discusses string expressions and Chapter 14 introduces 
relational (logical) expressions. 
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NUMERIC (ARITHMETIC) 
EXPRESSIONS 


Numeric expressions are expressions used to preform arithmetic computations. 
Since arithmetic computations are often quite complex, it is important to under- 
stand numeric expressions and the rules of precedence they follow in order to 
write and evaluate them correctly. 


e Numeric expressions are used to perform arithmetic computations. 


The operands of numeric expressions can only be numbers and/or variables of 
the three following types: 


1. Real 


2. Single precision integer 
3. Double precision long integer 


ARITHMETIC OPERATORS 


Business BASIC has nine arithmetic operators. The symbols and their 
meanings are as follows: 


Symbol Meaning 

+ Unary plus 

_ Unary minus 

A Exponentiation 

* Multiplication 

/ Floating-point Division 
MOD Modulo Division 

DIV Integer Division 

+ Addition 

- Subtraction 


e Operands of MOD and DIV can only be long integers. 
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ARITHMETIC OPERATOR PRECEDENCE 
e Numeric expressions are evaluated according to rules of precedence. 


e With a series of operations of equal precedence the order of evaluation 
is left to right. 


e To change the order of evaluation, numeric expressions can be en- 
closed in parentheses. 


The order of evaluation of arithmetic operators is as follows: 


Order Symbol Meaning 
1. ( )j Parentheses 
2. + Unary plus 
- Unary minus 
3. A Exponentiation 
4. * Multiplication 
/ Floating-point Division 
MOD Modulo Division 
DIV Integer Division 
5. + Addition 
_ Subtraction 


Example: 
The following expression 
12 + 12/2 


is evaluated to 18 and not 12: 
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According to the above rules of precedence, the expression is 
evaluated in the following order: 


1. 12/2 = 6 
2. 6+12 = 18 


Not using the order of precedence, the expression would have 
been evaluated as follows: 


1, 124+12.= 24 
2. 24/2 = 12 


1. PARENTHESES 


e Sets of parentheses grouped one inside another are evaluated from the 
inside out. 


Example: 


The following sets of parentheses will be evaluated in the following order: 


Sets of parentheses 3 2 1 1 2 3 
( ( ( ) ) 
Order First fL---------- $ 
Second | ----------- Janeennnnnnnn woneeeneennen $ 
Third wonnnnnnnnnnnnncnnnannnnnnnnannnnnnennnnnennnnennnennnnnenne f 


e Expressions enclosed in parentheses are computed first. 


For example, the following expression 
12 + 12/2 is evaluated to 18. 
Using parentheses, the expression 


(12 + 12)/2 is evaluated to 12. 
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2. UNARY PLUS AND MINUS 


When the unary minus sign (-—) is used to indicate a negative number, the 
unary minus sign is first applied to the number before the expression is 


evaluated. 


Example: 


642 = -4 
t 


A unary minus sign used as an operator is always ignored. 


Example: 


+156) = -—6, not +6 


e Two consecutive operators must be separated by a parenthesis. 
Example: 
+ (—6) 
Ll 
3. EXPONENTIATION 
1+243=9, not 27 
The expression is evaluated in the following order: 


1. 2%3=8 
1+8=9 
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With a series of operators of equal precedence, the order of evaluation is from left 
to right. 


Example: 
243444546 is evaluated to 1.15292E + 18 
243 = 8 


. 8A4 = 4096 
3. 409645 = 1.15292E +18 


wt — 


e Exponentiation cannot be used with long integers. 
4. MULTIPLICATION AND DIVISION 


Multiplication and division having equal precedence, all multiplications and divi- 
sions are done from left to right. 


Example: 
2*3*4*5 is evaluated to 120 


123456/12/10/5 is evaluated to 205.76 


MOD 


e MOD can only be used with long integers. 
The modulo operator MOD evaluates the long integer remainder of a division. 
Example: 
1234 MOD 12 = 10 


29 MOD 6 MOD 2 = 1 
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DIV 


e DIV can only be used with long integers. 
The long integer division operator DIV evaluates the integer result of a division. 
Example: 


A&=7: B&=2 : PRINT A& DIV B& returns 3 


5. ADDITION AND SUBTRACTION 


Addition and subtraction having equal precedence, all additions 
and subtractions are done from left to right. 


Example: 
142+43+5+6 = 17 
24-2-10-5-7 = 0 
If you have a clear understanding of the arithmetic operator precedence, even the 
most lengthy and complex numeric expressions can be accurately evaluated. Be 


sure to pretest numeric expressions that you may not be sure of before running 
your program. 


STRING EXPRESSIONS 


Business BASIC provides an effective method of comparing strings. Here the 
rules for string comparison are introduced and many examples of how strings are 
comapred with each other and with truth values are provided. 


e A character is a string literal. 

e Each character has an ASCII code number. (ASCII stands for 
American Standard Code for Information Interchange.) For instance, 
the code numbers of the twenty-six uppercase letters of the alphabet 


are from 65 to 90. 


e A string is a combination of characters. It may include letters, digits, 
spaces and special characters. | 


e String expressions may be combinations of string literals, string 
variables, substrings and string functions. 
STRING COMPARISON 


e The strings are compared character by character, from left to right, on 
the basis of their ASCII code numbers. 


e The first character found in one string that has a greater ASCII value 


than the character found in the same position in the second string 
makes the first string greater. 
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e If one string’s current length is longer, the longer string is greater. 


Examples of comparison between: 


1. two literals: A and.B 


A is smaller than B 


65 is the code number for letter A 
66 is the code number for letter B 


65 is smaller than 66 


2. two strings: ZEPPELIN and YEAR 


‘'ZEPPELIN”’ is greater than "YEAR" 
T tT 


90 is the code number for letter Z 
89 is the code number for letter Y 


90 is greater than 89 


3. two string variables: Z$ and Y$ 


Z$ = veer eN Y$= venAR’ 


Z$ is greater than Y$ 


4. two string expressions: EQUALITY OF VOTE and EQUALITY OF 


RANK 


"EQUALITY +/’’ OF ''+ ‘’VOTE’’ is greater than 


Trt ttt [ttt 


EQUALITY’ + OF + ‘RANK’ 
I 
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The twelve first characters of the two strings are in the same positions and iden- 
tical. The thirteenth character of the first string (V) being greater than the thir- 
teenth character of the second string (R}, —86 is the code number for letter V, 82 
is the code number for letter R—the first string is evaluated as being greater than 
the second string. 

5. two strings of different length: '"ESTIMATE ‘’ and ’’ESTIMATE’’ 


“ESTIMATE '’ is greater than 


‘"ESTIMATE”’ 
itt ttt 


The eight first characters of the two strings are in the same positions and identical 
but the first string is longer by one character (a space). 
COMPARING STRINGS WITH TRUTH VALUES 
¢ Logical expressions evaluate to truth values. 
e A logical (relational) expression consists of two or more string expres- 
sions whose comparison is done on the basis of their ASCII number 


codes and the condition stipulated by a relational operator. 


When treated as logical expressions, string expressions may have only one of 
two truth values. These values are represented by numeric values 0 and 1: 


0 when the result of the comparison is FALSE 
1 when the result of the comparison is TRUE 


A comparison may be done between: 


1. two literals: 


Relational Result of Truth 
expression the comparison value 
A<B True 1 
A>B False 


A (code number 65) is less than B (code number 66) 
A (code number 65) is not greater than B (code number 66) 


2. two string variables: 
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Relational Result of Truth 
expression the comparison value 
A$='’’ARNOLD”: B$=‘’BILLY’’ 
A$ <B$ True 1 
A$ =B$ False 0 
A is less than B 
A is not equal to B 

3. two string expressions: 
Relational Result of Truth 
expression the comparison value 
A$=''ARNOLD"”’: B$='’BILLY’’ 
A$+A$<A$+B$ True 1 
A$+B$=B$+A$ False 0 
A is less than B 


A is not equal to B 


There are many applications for string comparison in computer programs. You 
can perform data checks for inputted string data by using string comparisons. 
You can also take advantage of Business BASIC’s ability to compare strings based 


on their ASCII code numbers to alphabetize string data. 
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RELATIONAL (LOGICAL) 
EXPRESSIONS 


Relational, or logical, expressions are powerful computing tools. Relational ex- 
pressions, like arithmetic expressions, are evaluated according to rules of 
precedence. This chapter introduces the nine relational operators and their order 
of precedence. The difference between arithmentic expressions, which evaluate 
to numeric values, and logical expressions, which evaluate to truth values, is also 
addressed. 


e Relational expressions are also called logical expressions or Boolean 
expressions. 


A relational expression consists of two or more numeric (arithmetic) expres- 
sions whose comparison is done on the basis of the condition stipulated by a 
relational operator. 


RELATIONAL OPERATORS 


Business BASIC has nine relational operators. The symbols and their meaning 
is as follows: 


Symbol Meaning 

= Equal to 

< Less than 

> Greater than 
<=or=< Less than or equal to 
>=or=> Greater than or equal to 
<>or>< Not equal to 

AND Conjunction 

OR Inclusive disjunction 
NOT Negation 
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OPERATOR PRECEDENCE 
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e Operator precedence determines the order of evaluation of rela- 


tional expressions. 


Relational expressions with successive operators of equal precedence 


are evaluated from left to right. 


The order of operator precedence is as follows: 


Order 


1. 


2. 


Symbol 


ANAVAWA 
V 


AND 


Meaning 
Parentheses 
Unary plus 
Unary minus 
Negation 


Exponentiation 


Multiplication 
Floating-point division 


Modulo division 


_Integer division 


Addition 
Subtraction 
Not equal to 
Equal to 
Less than 


Greater than 
Less than or equal to 


Greater than or 
equal to 


Conjunction 


Inclusive disjunction 
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TRUTH VALUES 
e Arithmetic expressions evaluate to numeric values. 
e Logical expressions evaluate to truth values. 
e A logical (relational) ezpression consists of two or more arithmetic 
(numeric) expressions whose comparison is done on the basis of the 


condition stipulated by a relational operator. 


When treated as logical expressions, arithmetic expressions may have only one 
of two truth values. These values are represented by numeric values 0 and 1: 


O when the result of the comparison is FALSE 
1 when the result of the comparison is TRUE 


A comparison may be done between: 


1. two numeric consistants: 


Relational Result of Truth 
expression comparison value 
1<2 True 1 
1>9 False 0 


1 is smaller than 2 
1 is not greater than 9 


2. two numeric variables: 


Relational Result of Truth 
expression comparison value 
A=10 : B=20 

A<B True 1 
A=B False 0 


A is less than B 
A is not equal to B 
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3. two arithmetic expressions: 


¢ The evaluation of the arithmetic expressions is done before the evalua- 
tion of the relational expression. 


Relational Result of Truth 
expression comparison value 
14+2<4+5 True 1 
1+2=3 

4+5=9 


3 is less than 9 


A=10 : B=20 
A+B<B-A False 0 
B-A=10 


30 is not less than 10 


‘'LOGICAL’”’ AND '’’ARITHMETIC”’ EVALUATIONS 
e A distinction has to be made between: 


the truth (logical) value and 
the arithmetic value 


of a numeric (arithmetic) expression. 
Expression 2 =2 has a numeric truth value of 1 because 2 does equal 2. 
Expression 2 =3 has a numeric truth value of 0 because 2 does not equal 3. 


Expression 2 + 2 has an aithmetic value of 4 while expression 2 + 3 has a 
value of 5 


Any arithmetic expression with a non-zero value has a truth value of 1. For ex- 
ample, when treated as a logical expression, 2 + 2 has a truth value of 1. 


Any arithmetic expression with a value equal to 0 has a truth value of 0. For ex- 
ample, when treated as a logical expression, 2-2 has a truth value of 0. 
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SUCCESSIVE EVALUATIONS 


In successive evaluations, the LAST truth value is the value assigned to the 
logical expression. 


Example: 
The last truth value of the expression 
3<2<1 is 1 (True} 
Successive evaluations are done from left to right as follows: 
1. Expression 3<2 is FALSE 
3 is not smaller than 2. The truth value of the result is therefore 0. 
2. 0 is substituted for the expression 3 <2 
3. Expression 0< 1 is TRUE 
0 is smaller than 1. The last truth value is therefore 1. 
When writing programs in Business BASIC you will use numeric expressions, 
string expressions, and relational expressions. Through experience, the rules for 


using and comparing expressions and the orders of precedence will soon become 
quite natural and familiar to you. 
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ASSIGNMENT STATEMENTS 


The assignment statement is the most fundamental and widely used statement in 
a computer program. The assignment statement assigns values of numeric or 
string expressions to variables. The rules and formats of the two Business BASIC 
assignment statements, LET and SWAP, are presented here. 


e Numeric or string expressions by themselves do not constitute a state- 
ment. 


Assignment statements are used to assign the values of numeric or 
string expressions to numeric or string variables respectively. 


The values of numeric or string expressions on the right of the assign- 
ment symbol (the equals sign =) are assigned to the variables on the 


left of the sign. 


The keywords described here are: LET and SWAP. 


LET 


LET may optionally precede an assignment statement of numeric or string ex- 
pressions to variables that are of the same type as the assigned expressions. 
The numeric expression may be: 
1. a constant. 
Example: 
10 LET AZ= 10.23 


20 LET B%=12 
30 LET C&= 78400789 
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2.a numeric variable. 
Example: 
10 LET AW=X 


20 LET B%=Y% 
30 LET Cea te 


3. an arithmetic expression. 
Example: 


10 LET AZ=10*10*X 
20 LET B%=12-6-Y 
30 LET C8 = 123450789) 12/Z& 


e The type of the variable on the left side of the assignment sign (=) 
must be of the same type as the expression on the right side. 


e Type conversion functions such as VAL, STR$, CONV, CONV&, 
CONV% and CONV$ can be used if the types of the variable and the 
assigned expression are different. 


Only one assignment may occur per statement. 
Example: 
X= Y=Z=10 is not a valid assignment statement. 


It does not assign variables X, Y, and Z the value 10. Instead, it should be split in 
three separate statements. 


Example: 


X=10: Y=10: Z=10 
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When more than one assignment occur in a single statement, the statement is 
evaluated as a logical expression. 


Example: 


X= Y =0 has a truth value of 1 assigned to variable X 
X= Y =1 has a truth value of 0 assigned to variable X 


{See Chapter 14) 
The string expression may be: 
1. a string. 

Example: 


40 LET B$=’’Business BASIC ’’ 
50 LET C$= 5 a universal language’’ 


2. a string variable. 
Example: 


60 LET L$=X$ 
70 LET M$ =; 


3. a string expression. 
Example: 


80 LET B$=’’Business BASIC ’’ 
90 LET D$ =. + ‘is a universal language’’ 


e The type of the variable on the left side of the assignment sign (=) 
must match the type of the expression on the right side. 


e Type conversion functions such as VAL, STR$, CONV, CONV&, 
CONV% and CONV$ can be used if the types of the variable and the 
assigned expression are different. 
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The use of the reserved word LET is optional. 
Example: 


10 A=10*10 
20 LET A$=’’Business BASIC’’ 


are both valid (legal) assignment statements. 


SWAP 


SWAP exchanges the values of two variables of the same type. 


The '’swapping’’ may be done between: 


1. two numeric variables 


of the real type: SWAP XX, YY 

of the integer type: SWAP X%,Y% 

of the long integer type: SWAP X&,Y& 
Example: 

X=10: Y=20 

X,Y returns 10 for X and 20 for Y 

— SWAP X,Y 
PRINT X,Y will return 20 for X and 10 for Y 


e The two variables must be separated with a comma. 
Example: 


SWAP X,Y 
Od 
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2. two string variables. 
Example: 


X$="XX'" : Y$=""YY" 

PRINT X$,Y$ returns XX for X$ and YY for Y$ 
— SWAP X$,Y$ 

PRINT X$,Y$ will return YY for X$ and XX for Y$ 


e Both variables must be of the same type otherwise the ?TYPE 
MISMATCH ERROR message will be displayed. 


e Type conversion functions such as VAL, STR$, CONV, CONV&, 
CONV% and CONV$ can be used if the two variables are not of the 
same type. 


Assignment statements are similar to equations. With the exception of assign- 
ment statements that use the type conversion functions, remember that the type 
of the variable on the left side of the assignment sign (=) must be of the same 
type as the expression on the right side of the assignment sign. 
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SUBROUTINES 


Often a computer program may execute the same series of operations several 
times. Subroutines are used to perform a repeated sequence of operations. 
Business BASIC executes a program by starting at the lowest line number. Branch- 
ing statements alter this normal flow of execution in a program. This chapter 
describes three branching techniques— unconditional, conditional and multiple 
computed branching—and introduces seven new _ statements—GOSUB, 
RETURN, POP, IF...THEN GOSUB, ON...GOSUB, KBD, and ON KBD. 


e A subroutine is a program within a program that performs a repeated 
and specialized task. 


e A branching statement is used whenever you want to alter the nor- 
mal sequential flow of execution of program statements. 


There are three kinds of branching: 
1. unconditional, 
2. conditional, and 
3. multiple computed branching. 
e The statements described here are: 
GOSUB, RETURN, POP, IF...THEN GOSUB, ON...GOSUB, ON KBD 


and the reserved variable KBD. 
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UNCONDITIONAL BRANCHING 
GOSUB 


(Stands for GO and SUBROUTINE) 


GOSUB unconditionally transfers execution control to a specified line number 
which is the entry point of a subroutine. 


Example: 


10 GOSUB 90 


60 is the line number entry point to the subroutine. 


The general form of a main program and a subroutine is as follows: 


10 GOSUB 60 

20 | 

30 | Statements in the main program 
40 | 

50 END 

60 REM First statement of the subroutine 
80 | 

90 | Statements in the subroutine 

100 | 

110 RETURN 


e The referenced line number following the GOSUB statement must 
exist. 


In immediate mode: 


The 7UNDEF’'D STATEMENT ERROR message is displayed if the 
line number does not exist in the computer's memory. 


In deferred mode: 


If no line number follows the GOSUB statement, the same message 
is displayed with the calling GOSUB statement's line number. 


80 BUSINESS BASIC FOR THE APPLE III 


Example: 


?UNDEF’D STATEMENT ERROR IN rt 


GOSUB's line number 


e Subroutines may be called from different points in a program or ina 
subroutine. 


e A program can have a maximum of 23 nested subroutines. Exceeding 
this number would cause the 7?STACK OVERFLOW ERROR message 
to be displayed. 


RETURN 


e The last statment executed in a subroutine must be a RETURN 
statement. 


e The RETURN statement causes program execution to branch to the 
next statement following the most recently executed GOSUB 
statement. 


Example: 
10 GOSUB 70 
20 |... First Execution of Subroutine 


40 GOSUB 70: END 
| tT 
| 
| 
| 
70 REM First statement of the subroutine 
80 | 
90 |Statements in the subroutine 
100 | 


— 110 RETURN 22rrrrr rrr ec rer secs cl 
Second Execution of Subroutine 


SUBROUTINES 81 


Program execution proceeds as follows: 


Line 10: 
70: 

110: 

30: 

40: 

70: 


110: 


The GOSUB statement causes an unconditional branching to 
the subroutine starting at line number 70. 

Execution of the subroutine whose last statement is at line 
number 100. 

The RETURN statement causes an unconditional branching 
to the statement following the GOSUB statement that called 
the subroutine (i.e., at line number 20} 

Execution of statement at line number 30 

The GOSUB statement causes a second unconditional 
branching to the same subroutine starting at line number 70. 
Execution of the subroutine whose last statement is at line 
number 100. 

The RETURN statement causes an unconditional branching 
to the statement following the most recently executed 
GOSUB statement that called the subroutine (i.e. the END 
statement at line number 40). 


POP 


e To keep track of the addresses (memory locations) to which program 
execution must RETURN after a GOSUB statement is executed, 
computers place pointers on the program stack. 


¢ When a POP statement is executed, the top pointer is removed from 
the program stack. 


e When a RETURN statement is encountered after a POP statement is 
executed, program execution branches to the most recently executed 
GOSUB statement. 
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Example: 


10 GOSUB 100: REM First GOSUB 
20 | 
| Statements 


100 GOSUB 120: REM Second GOSUB 
110 | 
| Statements 
| 
120 POP 
130 RETURN 
140 END 


Program execution: proceeds as follows: 


Line 10: After the GOSUB statement is executed, a pointer to the 

address of line number 20 is placed on top of the program 
stack and program execution branches to line number 100. 

100: After the GOSUB statement is executed, a second pointer to 
the address of line number 110 is placed on top of the first 
pointer. 

120: Execution of the POP statement causes the top pointer (the . 
last one) to be removed from the program stack. 

130: Execution of the RETURN statement causes program ex- 
ecution to branch to the address which is at the top of the 
program stack (i.e., the address of line number 20). 


e If a POP statement is executed before a GOSUB statement the 
?7RETURN WITHOUT GOSUB ERROR message is displayed. 


e More POP and RETURN statements than GOSUB statements cause 
the same error message to be displayed. 
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CONDITIONAL BRANCHING 


e A conditional branching is used to alter the normal sequential flow 
of execution of program statements. 


e A conditional branching occurs when and if a condition stipulated 
by a relational operator is encountered during program execution. 


e IF...THEN... is the basic statment used to make conditional branch- 
ing decisions. 


IF... THEN GOSUB 


e If the relational expression following the IF statement is TRUE, pro- 
gram execution branches to the subroutine whose starting line 
number is given following the GOSUB statement. 


Example: 


IF a THEN GOSUB 1000 


Y is the relational expression 


IF X<Y THEN GOSUB p00 


1000 is the starting line number of the subroutine to which program 
execution will branch if the relational expression is true (i.e., if X is 
less than Y). 


e If the relational expression is FALSE, program execution continues 
with the next line. 
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Example: 
10 X=20: Y=10 
— 20 IF X<Y THEN GOSUB 1000 
— 30 END 
| 
| 


1000 PRINT ’’X is less than Y’’ 
1010 RETURN 


String expressions as well as numeric expressions are used in condi- 
tional branching decision-making statements. 


Example: 


10 IF X$='’YES’’ THEN GOSUB 1000: t > 
| t 
| 
| | 
1000 PRINT "YOU TYPED YES TO MY PROMPT”’ 
—1010 RETURN 


COMPUTED MULTIPLE BRANCHING 


ON ...GOSUB 


e ON... GOSUB... is a computed multiple branching statement. Pro- 
gram execution is transferred to one of the line numbers specified 
after the GOSUB statement depending on the value assigned to the 
variable following the keyword ON. 
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Example: 
10 INPUT X 
20 ON X GOSUB 100,200,300 
| fit 
| 
| 
30 END 


| Statement — 
100 PRINT ’'’Transfer to line number 100’’ :RETURN 
200 PRINT ’’Transfer to line number 200’ :RETURN 
300 PRINT ’’Transfer to line number 300’ :RETURN 


Depending on the value assigned to variable X, program execution branches as 
follows: 


Transfer to line number 100 for X=1 
Transfer to line number 200 for X=2 
Transfer to line number 300 for X=3 


e If the value assigned to X is less than 1 or greater than 3, program ex- 
ecution defaults to the first line number following the GOSUB state- 
ment. 


20 ON X GOSUB a 200, 300 


for X<1lor X>3 


e If the value assigned to X is different from the required values of 1, 2 
and 3, program execution branches as follows: 


X value Transfer to 

>0O or <1.5 First referenced line number: 100 
=>15 o0r <2 Second referenced line number: 200 
=>2 or <2.5 Second referenced line number: 200 
=>2.5 or <3 Third referenced line number: 300 
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e A numeric expression can follow ON. 


Example: 


20 ON HY + Z GOSUB 100, 200, 300 


The value of the expression must be in the range 0 to 255. Ex- 
ceeding this range would cause the ILLEGAL QUANTITY ERROR 


message to be displayed. 


The number of referenced lines following the GOSUB statement should be equal 
to the number of subroutines. 


Example: 


10 INPUT X 
20 ON X GOSUB 100, 200, 300 
30 END tT 


three referenced line numbers 


100 PRINT ’’First subroutine’’ :RETURN 
200 PRINT ’’Second subroutine’’ :RETURN 
.300 PRINT vp hird subroutine’’ :RETURN 


three subroutines 


e Transfer to the same subroutine may be made for different values. 


Example: 


ON X GOSUB 205003001500 


Program execution will branch to line number 100 for X=1, X=3, 
or X=5. 
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KBD 
(Standing forKEYBOARD)}) 


The ASCII number code of the last key struck is automatically assigned to the 
reserved variable KBD. 


e A reserved variable can only be used. 


ON KBD 


(Standing for ON and KEYBOARD} 


ON KBD causes program execution to branch to the line number specified after 
the GOTO or GOSUB statements when any key is pressed. 


Example: 


ON KBD GOTO 100 
ON KBD GOSUB 1000 


e The last statement of a subroutine to which program execution has 
been transferred with ON KBD must always be a RETURN state- 
ment. 


Example: 


— 10 ON KBD GOTO 100 
| Statement 


| 
100 PRINT KBD 


— 200 RETURN 


The RETURN statement branches program execution back to the statement that 
follows immediately the ON KBD statement. 


88 BUSINESS BASIC FOR THE APPLE III 


The IF...THEN conditional statement may be used with the ON KBD to either 
stop program execution or cause Business BASIC to execute a specific statement. 


Example: 


10 ON KBD GOTO 100 
20 GOTO 10 
100 PRINT KBD 
— 110 IF KBD=65 THEN END 
190 ON KBD GOTO 100 
200 RETURN 


e The ON KBD statement must be repeated just before the RETURN 
statement to re-enable it. 


Example: 


— 190 ON KBD GOTO 100 
200 RETURN 


Program execution proceeds as follows: 


Line 10: 


100: 
110: 


190: 
200: 


20: 


Program execution is transferred to line number 100 when 
any key is pressed. 

PRINT returns the ASCII code number of the key. 

If the key struck is capital letter A (ASCII number code = 65), 
the END statement is executed and program halts. 

The ON KBD statement is re-enabled. 

The RETURN statement branches program execution to the 
statement following ON KBD, i.e., line number 20 
Unconditional transfer to line number 10 
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e The CONTROL and C keys cannot halt program execution when the 
ON KBD statement is in effect. 


CONTROL-C is treated just like any other key. 
For instance, the PRINT statement at line number 100 of the above ex- 
ample, 


100 PRINT KBD 


would return the value 13 which is the ASCII code number of control 
character C. 


Because of the efficiency of subroutines, most computer programs utilize 
subroutines and branching statements associated with them —GOSUB (uncondi- 
tional), IF .. . THEN GOSUB (conditional) and NO GOSUB (multiple computed 
branching). It is important to structure your program so that the flow of state- 
ment execution is correct, efficient and easily understandable. Think of 
subroutines as miniprograms within the main program. 
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TRANSFER OF CONTROL 


The previous chapter discussed subroutines and branching statements that are 
used with subroutines. This chapter introduces transfer of control branching 
statements that are not associated with subroutines—GOTO, IF...THEN, IF... 
GOTO, ON ... GOTO, and ELSE. These branching statements change the nor- 
mal sequential execution of Business BASIC statements and transfer control to 
other parts of the program either conditionally or unconditionally. 


e Program statements are executed in sequential mode i.e., Business 
BASIC starts at the lowest line number of a program and proceeds to 
the next higher number. 

e This normal sequential execution mode can be interrupted at any 
point in the program with the use of transfer of control or branching 
statements. 

e The branching statements described here are : 

1. the unconditional GOTO 
2. the conditional IF ...THEN, and IF... GOTO 
3. the computed multiple conditional ON ... GOTO 


4. the ELSE statement 


90 


TRANSFER OF CONTROL 91 


UNCONDITIONAL BRANCHING 


GOTO 


GOTO unconditionally transfers program execution to the line number specified 
after the GOTO statement. 


Example: 


— 10 GOTO 40 
20 PRINT ‘'PROGRAM EXECUTION JUMPED BACK TO LINE 20”" 
30 END 
40 PRINT ’7PROGRAM EXECUTION IS TRANSFERRED TO LINE 40"’ 
— 50 GOTO 20 


Program execution proceeds as follows: 


Line 10: Program execution is unconditionally transferred to line 

number 40 

40: The PRINT statement prints the string: PROGRAM EXECU- 
TION IS TRANSFERRED TO LINE 40 

50: Program execution is unconditionally transferred to line 
number 20 

20: The PRINT statement prints the string: PROGRAM EXECU- 
TION JUMPED BACK TO LINE 20 

30: END of the program 


¢ GOTO may be used as a command in immediate mode. 
Example: 
Typing GOTO 20 


and pressing the RETURN or ENTER key would cause program ex- 
ecution to start at line number 20. 
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e GOTO is often used with an IF .. . THEN or IF conditional transfer 
statement..The format is: 


IF relational expression GOTO line number. 


Example: 


IF X<Y GOTO 20 


CONDITIONAL BRANCHING 


IF... THEN 


e IF is a decision-making statement whose truth value is based on 
the evaluation of a relational expression. 


IF the relational expression is TRUE, Business BASIC executes the 
statement following the reserved word THEN. 


IF the relational expression is FALSE, program execution defaults to 
the next line. 


Example: 
20 IF X=Y THEN Z= 123456789 


30 Z=0 
40 END 


If the relational expression (X= Y) is true THEN the variable Z will be assigned 
the 123456789 value. 
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IF ...GOTO 


e IF is a decision-making statement whose truth value is based on 
the evaluation of a relational expression. 


IF the relational expression is TRUE, program execution branches 
to the line number following the GOTO statement. 


IF the relational expression is FALSE, program execution defaults to 
the next line. 


Example: 


10 INPUT ’"YES OR NO”: X$ 
— 20 IF X$='’’YES” GOTO 40 
30 END 
— 40 PRINT '’’"PROGRAM EXECUTION IS TRANSFERRED TO LINE 40” 


50 END 


Assuming that the word YES has been input at line 10, the relational expression 
at line number 20 will be evaluated to true (X$ is equal to YES) and program ex- 
ecution will unconditionally be transferred to line number 40. 


Assuming that the word NO has been input instead, the relational expression will 
be evaluated to false (X$ is not equal to YES) and program execution will con- 
tinue with the END statement at line number 30. 
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COMPUTED MULTIPLE BRANCHING 


ON ... GOTO ... 


e ON ... GOTO ... is a computed multiple unconditional transfer 
statement. Program execution is transferred to one of the line 
numbers specified after the GOTO statement depending on the value 
assigned to the variable following the reserved word ON. 


Example: 
10 INPUT X 
20 ON X GOTO 100,200,300 
| ti. 4 
| 
| 
30 END 


100 PRINT ‘’Transfer to the 1st line number following GOTO’’:END 


200 PRINT ‘’Transfer to the 2nd line number following GOTO’’:-END 
300 PRINT ’’Transfer to the 3rd line number following GOTO”’’:END 


Depending on the value assigned to variable X, program execution branches as 
follows: 


Transfer to line number 100 for X=1 
Transfer to line number 200 for X=2 
Transfer to line number 300 for X=3 


e Ifthe value assigned to X is less than 1 or greater than 3, program ex- 
ecution defaults to the first line number following the GOTO state- 
ment. 


20 ON X GOTO aa 200, 300 


for X<1 or X>3 


TRANSFER OF CONTROL 95 


e If the value assigned to X is different from the required values of 1, 2, 
and 3, program execution branches as follows: 


X value Transfer to 

>O or <1.5 First referenced line number: 100 
=>1.5 or <2 Second referenced line number: 200 
=>2 or <2.5 Second referenced line number: 200 
=>2.5 or <3 Third referenced line number: 300 


e A numeric expression can follow ON. 


Example: 


20 ON ae + Z GOTO 100,200,300 


The value of the numeric expression must be in the range 0 to 255. 
Exceeding this range would cause the 7ILLEGAL QUANTITY 
ERROR message to be displayed. 


The number of referenced lines following the GOTO statement should be equal 
to the number of subroutines. 


Example: 


10 INPUT X 
20 ON X GOTO 100, 200, 300 
30 END t ft Tf 


three referenced line numbers 


100 PRINT ’’1st subroutine’: RETURN 
200 PRINT ’’2nd subroutine’’: RETURN 
700 PRINT '’3rd subroutine’’: RETURN 


three subroutines 
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e Transfer to the same line number may be made for different values. 


Example: 


ON X GOTO 100,200, 100,300,100 
t T 


Program execution will branch to line number 100 for X=1, X=3, or 
X=5 


ELSE 


e IF is a decision-making statement whose truth value is based on 
the evaluation of a relational expression. 


IF the relational expression is TRUE, Business BASIC executes the 
statement following the reserved word THEN. 


IF the relational expression is FALSE, program execution branches to 
the statement following ELSE. 


The ELSE statement may be used with any one of the three following conditional 
transfer statements: 


IF ... THEN .................: ELSE ... 
IF ... GOTO. ................ : ELSE ... 
IF ... THEN GOSUB ...: ELSE ... 


Example: 


IF aie THEN PRINT ’’YES’’: ELSE PRINT ’’NO”’ 


relational expression to be evaluated 


IF X=Y THEN pent "’"YES'’: ELSE PRINT '"NO”’ 


statement to be executed if the relational expression 
is evaluated to true. 
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IF X=Y THEN PRINT ’’YES”’: toe PRINT ’"NO”’ 


alternative statement to be executed 
if the relational expression is 
evaluated to false. 


e The ELSE statement must be preceded by a colon and be on the same 
line as the IF statement. 


Example: 


10 IF X<Y THEN wex ELSE Y=X 


e An ELSE statement that does not follow immediately an 
IF ...THEN statement is treated as a REM statement. 


Example: 


10 IF X<Y THEN X=Y 
20 ELSE The above statement swaps the values of X and Y 


NESTED CONDITIONAL STATEMENTS 


e One conditional statement may be embedded within another. Condi- 
tional statements contained inside other conditional statements are 
said to be nested. 


yx 


Example: 


10 IF A=B THEN IF X<Y THEN IF A>Y THEN 100 
20 END 


| 
100 PRINT ‘THE 3 CONDITIONS ARE TRUE” 


The above conditional statement has three levels of nesting (i.e., three suc- 
cessive tests). 


1. Is A equal to B if this is the case THEN 
2. Is X less than Y if this is the case THEN 
3. Is A greater than Y if this is the case THEN 100 
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The branch to line number 100 (PRINT ''THE 3 CONDITIONS ARE TRUE’’} 
will be executed only if the three conditions are true. 


e IF . .. THEN statements may be followed by as many ELSE 
statements as needed. 


Each ELSE statement may indicate the alternative statement to be 


executed if the condition stipulated after the matched THEN is not 
true. 


Example: 


IF A=B THEN IF X<Y THEN PRINT '’YES’’: ELSE 400 : ELSE 


800 

Statement Meaning 

IF A=B THEN IF condition # 1 is true 

IF X<Y THEN IF condition # 2 is true 
PRINT ’’YES”’ statement to be executed 
ELSE 400 ELSE alternative to condition # 2 
ELSE 800 ELSE alternative to condition # 1 


e After the execution of the first two tests, there may be three possible 
cases: 


Case Conditions Statement 


A. #1 TRUE #2 TRUE Print ‘’Yes’’ 
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The statement following THEN is executed if the conditions of the two suc- 
cessive tests are both true. 


Case Conditions Alternative 


B. #1 TRUE #2 FALSE Branching to line 400 


If the condition of the first test is true and the condition of the second test is false, 
it's the alternative statement of the second condition that is executed and the 
computer branches to line number 400. | 


Case Conditions Alternative 


C. #1 FALSE #2 TRUE Branching to line 800 


If the condition of the first test is false and the condition of the second test is true, 
it's the alternative statement of the first condition that is executed and the com- 
puter branches to line number 800. 


e The total length of nested statements cannot exceed the 250 character 
limit. 


Through the use of control statements and subroutines, you can write Business 
BASIC programs that perform complex processing of data. Computers can easily 
understand, evaluate, and perform complicated branching statements, but it is 
your responsibility to integrate them correctly in a program. Transfer of control 
statements make programs more powerful, but also more complicated. Try to 
write branching statements clearly and use them efficiently in your program. 
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PROGRAM TESTING 


It is often difficult to write a program that is free of errors the first time it is run. 
Finding and correcting program errors, or debugging, is a large part of program- 
ming. There are four types of errors found in programs ~— spelling errors, syntax 
errors, execution errors and logic errors. This chapter discusses how computers 
detect these errors and techniques you can use to detect programming errors. 


e Detection and correction of errors is one of the most important tasks 
that faces a programmer. 


e Four typés of errors can usually occur in a program: 


1. spelling errors such as typing 
tie for PRINT 


2. misuse of the syntax rules such as not including parentheses around the argu- 
ment of a function: 


PRINT ABS, x 


3. execution errors that the computer can detect only during program execution. 
4. logic errors made in problem solving programmed solutions that the computer 
cannot detect either before or after program execution. 


e Spelling and syntax errors are detected by the computer while the pro- 
gram is being entered. 


e Execution errors are detected after the program is RUN. 
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When an error occurs in the immediate execution mode, an error message is 
immediately displayed. 


Example: 


2SYNTAX ERROR 


When an error occurs in deferred execution mode, the error message is displayed 
with the line number at which the error occurred. 


Example: 


?2SYNTAX ERROR IN 10 
if 


With or without the computer's help, to check on program correctness, we can 
use functions, statements or reserved variables such as: 


REM, LIST, DEL, TRACE, NOTRACE, and OUTREC. 


REM 
(Standing for REMARK) 


REM allows the inclusion of explanatory notes, reminders, remarks and/or com- 
ments in any point of a program to achieve better understandability. 


Example: 


5 REM Program written on .......... by ........ 
10 REM The area of a circle is found 
20 REM by the formula: C=PI*R*2 PI=3.14159265 
30 REM Variables used: 
40 REM C for Circle 
50 REM R for Radius 


e REM can only be a program statement. 


Strings following a REM statement need not be inside quotes but they 
may not exceed 250 characters in length. 
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Comments can run across as many lines as needed but each line 
must be preceded by a REM statement. 


Example: 


10 REM Comments and remarks re: the identification of this 
program 

20 REM and the detailed description of processing that is to be 
done 

30 REM are split in three successive lines 


e All REM statements are ignored during program execution. Ex- 
ecutable statements should always precede a REM statement, other- 
wise they would be ignored. 


Example: 


10 REMArea of a circle: C=3.14159265*R2: PRINT C 
t 


C will never be computed 
because it follows a REM 
statement. 


LIST 


Used either as an immediate mode command or a program statement, LIST out- 
puts all of a program currently in memory or only the lines specified after the 
LIST statement. 


Example: 

1. LIST Outputs the entire program 
starting at the lowest 
numbered line 

2. LIST 10 Outputs only line number 
10 

3. LIST 10-50 Outputs all lines from line 


number 10 up to and in- 
cluding line number 50 
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e If the first line number does not exist, output starts from the next 
higher existing line number. 


If the first line number is greater than the second, nothing is listed. 


4. LIST -50 Outputs all lines from the 
lowest line number up to 
and including line number 
50 


5. LIST 50- Outputs all lines from line 
number 50 up to and in- 
cluding the highest line 
number. 


¢ Acomma (,) or the reserved word TO may be used instead of a hyphen (-). 


Example: 


LIST 10 - 50 

LIST 10, 50 

LIST 10 TO 50 
I 


are all valid statements. 
e A space must separate the statement from the line number: 


MST 10 


e Pressing the CONTROL key and digit 7 (on the numeric keypad) 
halts a listing (output, display) temporarily. 


A second pressing of the keys causes the listing to resume. 
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Any line number and statement out of sequence is automatically resequenced in 
ascending line number order when the LIST command is given. 


Example: 


30 Z=30 
10 X=10 
20 Y=20 
I 


The above line numbers (and statements) will be listed in the following order: 


10 X=10 
20 Y=20 
re Z=30 


OUTREC 


(Standing for OUT and RECORD) 


¢ OUTREC is a modifiable reserved variable to which is assigned 
the maximum required length of lines to be output by the LIST com- 
mand. 


e As soon as the printer column position equals the value assigned to 
OUTREC, printing passes to the next line. 
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DEL 
(Standing for DELETE) 
Used either as an immediate mode command or a program statement, DEL 


deletes all of a program currently in memory or only the lines specified after the 
DEL statement. 


Example: 

1. DEL Deletes the entire program 
starting at the lowest 
numbered line 

2. DEL 10 Deletes only line number 10 

3. DEL 10-50 Deletes all lines from line 


number 10 up to and in- 
cluding line number 50 


e If the first line number does not exist, output starts from the next 
higher existing line number. 


If the first line number is greater than the second, nothing is 


deleted. 

4. DEL -50 Deletes all lines from ‘the 
lowest line number up to 
and including line number 
50 

5. DEL 50- Deletes all lines from line 


number 50 up to and in- 
cluding the highest line 
number 
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e¢ Acomma ( ,) or the reserved word TO may be used instead of a hyphen (-). 


Example: 


DEL 10-50 
DEL 10,50 
DEL 10 + 50 


are all valid statements. 


e A space must separate the statement from the line number: DEL 10 


TRACE 


e TRACE is used mainly to ‘debug’ (check, troubleshoot) the sequential 
execution of a program or parts of it. 


e TRACE may be used in the immediate (command) mode as well as in 
deferred mode. 


During program execution, TRACE displays a number sign (#) followed by the 
line numbers of the statements in the sequential order of their execution. 


Traced execution of assignment statements is reported by only the line number 
of the statements. For example, tracing the execution of the following program: 


10 A=25 
20 B=55 
30 C=A+B 


would result in the following display: 


#10 #20 #30 
t t t 
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If the traced statement contains a PRINT statement, TRACE displays the line 
number and the result of the PRINT statement. For example, tracing the execu- 
tion of the following program: 


10 A=25 

20 B=55 

30 C=A+B 
40 PRINT C 


would result in the following display: 


#10 #20 #30 #40 + 


line number of the PRINT statement followed by the value of 
variable C (80) 


NOTRACE 


¢ NOTRACE turns off the TRACE statement or command. 


NOTRACE may be used in the immediate (command) mode as well 
as in deferred mode. . 


Getting your program error-free involves much interaction between you and the 
computer. The functions, statements, and reserved variables REM, LIST, 
OUTREC, DEL, TRACE and NOTRACE are valuable programming tools to use in 
debugging. | 
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PROGRAMMED ERRORS 
CORRECTION 


When an error occurs during program execution, it will ordinarily bring execu- 
tion to a halt. However, three statements and two reserved variables can be in- 
corporated into programs to enable the programmer to locate and correct errors 
without stopping program execution. This chapter introduces an important tool 
for programmers -—the error correcting subroutine. 


e Detection and correction of errors is one of the most important tasks 
that faces a programmer. 


e Execution errors are detected after the program is RUN. 
e When an error occurs during program execution: 
1. program execution halts. 
2. an error message is displayed. 
3. the system returns to keyboard mode. 
Statements such as ON ERR and OFF ERR, RESUME and the reserved 
variables ERR and ERRLIN enable us to program error correction subroutines 
that will: 
1. correct the errors. 
2. display messages on the type of errors that occurred. 


3. display the line number where the errors occurred. 


4. prevent program execution from halting. 
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ON ERR 


(Standing for ON and ERROR) 


e ON ERR is only used as a program statement. 


ON ERR causes program execution to branch to the specified line number 
following GOTO. 


Example: 


10 ON ERR GOTO te 


The ON ERR statement should be placed at. the beginning of a program. 
Example: 


10 ON ERR GOTO 100 
| 


| Statements where an error might occur. 


e 100 is the entry point line number of an error correcting subroutine 
where errors are corrected with appropriate statements to allow pro- 
gram execution to continue. 


e The error correcting subroutine statements must be free of errors, or 
an endless and unstoppable loop may result. 
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If a program contains more than one ON ERR statement, only the most recently 
executed ON ERR statement will be used. 


Example: 


10 ON ERR GOTO 1000 — 


| 
| 

— 1000 REM Error correcting subroutine # 1 
| 
| 
| 

1010 ON ERR GOTO 2000 — 

| 
| 

— 2000 REM Error correcting subroutine # 2 
| 
| 


| 
2500 RESUME — 


e If an error occurs in any line following line number 1010, program ex- 
ecution will always branch to the subroutine at line number 2000. 


e Error correcting subroutines usually end with a RESUME statement. 


OFF ERR 
(Standing for OFF and ERROR) 
OFF ERR cancels the most recently executed ON ERR statement. If an error oc- 


curs after an OFF ERR statement, program execution stops and an error message 
is displayed. 
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ERR 


(Standing for ERROR) 


When an error occurs, the reserved variable ERR is assigned the code number 
corresponding to the type of the detected error. 


ERR may be used with an IF . .. THEN conditional statement. 


‘Example: 


10 ON ERR GOTO 70 — 
20 DIM A(12) 
30 FOR X=1 TO 12: READ A: NEXT X 
40 GOTO 80 qe nncnnn nn nnn n nn nn nn nn ne en ee eee e eee . 
50 DATA 1,2,3,4,5,6 
60 END 

— 70 IF ERR=4 THEN RESUME 40 ------------------- 
80 PRINT ‘PROGRAM EXECUTION CONTINUES"’ 


Program execution proceeds as follows: 


Line 10: If an error occurs, ON ERR causes an unconditional branching 

to line number 70 

20: Dimensions a 12-element list 

50: The DATA statement containing only 6 data items, ON ERROR 
GOTO 70 is executed. 

70: Program execution resumes at line number 40 (the code number 
of the error is 4} 

40: GOTO causes an unconditional branching to line number 80 

80: Program execution continues at line number 80 


ERRLIN 
(Standing for ERROR and LINE) 


When an error occurs, the reserved variable ERRLIN is assigned the line 
number where the error occurred. 
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RESUME 


e RESUME must be the last statement of an error correcting 
subroutine. 


e¢ RESUME is ignored until an error occurs. 


RESUME causes program execution to branch again at the line number where 
the error occurred. 


10 ON ERR GOTO 100 — 
20 INPUT N 
30 IF N=9 THEN END 


40 A=12/N wenn nan nn enn nn nn ene nn een nn een n eee nee 
50 PRINT A: GOTO 20 
— 100 N=N+1 
110 PRINT ’’Error at line number’’;ERRLIN 
120 PRINT ’’Error code number’’;ERR 
— 130 RESUME .------------..---------------------------- 


hee swe seamen ae J 


140 END 


Program execution proceeds as follows: 


Line 10: 


20: 


100: 


110: 
120: 


130: 


40: 


50: 


If an error occurs, the ON ERR statement causes program execu- 
tion to branch at line number 100. 

A division by zero is considered as an ‘’error.’’ If a 0 is input 
and assigned to variable N, program execution automatically 
branches to line number 100 

Entry point of the error correcting subroutine. N is reinitialized 
(0+ 1=1). 

Displays the line number where the error occurred. 

Displays the code number of the error (14 for a division by zero 
error). 

RESUME causes program execution to branch again to line 
number 40. 

Variable A is assigned the result of the new computation 
(A=12/1). 

Displays the result and program execution continues at line 
number 20. 


Correcting errors without stopping program execution or returning to the 
keyboard mode makes debugging a simple, speedier process. The statements ON 
ERR, OFF ERR, and RESUME, along with the reserved variables ERR and ER- 
RLIN, allow you to take advantage of error correcting subroutines. 
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LOOPS 


Computers are powerful data processing tools largely because of their ability to 
perform repetitive operations quickly and efficiently. Often a program must per- 
form the same sequence of operations thousands of times. This chapter in- 
troduces a fundamental programming structure that is found in almost every 
computer program -—the loop. 


e A loop consists of a block of program statements that is repeatedly ex- 
ecuted. | 


The reserved words used in a loop are: 


FOR, TO, NEXT and STEP 


FOR 


FOR marks the beginning of a loop: 


10 FOR ... 
T 


The numeric nonsubscripted control variable that follows FOR controls the 
number of loops to be performed: 


10 FOR Ae ........... 
t 


e The numeric control variable may be either a real or an integer type 
variable. A string or long integer variable is not valid. 


An assignment symbol (equals sign) follows the control variable: 


10 FOR Ae 
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TO 


The starting value of the loop follows the assignment symbol. The value may be 
a constant, a numeric variable or a mathematical expression. 


Example: 


10 FOR A=1 TO 
10 FOR A=B TO 
10 FOR Ase TO 


starting value 


The terminating value of the loop follows the word TO and may be a constant, 
a numeric variable or a mathematical expression. 


Example: 


10 FOR A=1 TO 3 

10 FOR A=B TOC 

10 FOR A=1 TO C434C 
I 


terminating value 
Control variable A will be assigned all values ranging from the starting value to 
the terminating value of loop: 


A=1 for lst execution 
A=2 for 2nd execution 
A=3 for 3rd execution ... 
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STEP 


e The value that follows the word STEP indicates the value by which 
the control variable is incremented. 


e The default value is a positive value of 1 
e A 0 value would result in an infinite loop. 
The value may be a constant, a numeric variable or a mathematical expression. 
Example: 
10 FOR A=1 TO 100 STEP 10 


10 FOR A=1 TO 100 STEP S 
10 FOR A=1 TO 100 STEP i + 10 


A positive value increments the control variable. 
Example: 
10 FOR A=1 TO 10 STEP 2 
20 PRINT "A = "A; ; 
30 NEXT A 
will display: A=1 A=3 A=5 A=7 A=9 


A negative value decrements the control variable. 


Example: 
10 FOR A=10 TO 2 STEP -2 
20 PRINT "A = ""SA;" '; 
30 NEXT A 


will display: A=10 A=8 A=6 A=4 A=2 
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The STEP value can be a positive or negative real value. 


Example: 
10 FOR A=1.5 TO 12 STEP 1.5 
20 PRINT A;’" "; T 
30 NEXT A 
will display: 1.534.567.5910512 
e When the control variable’s value is greater than the terminating 


value of the loop, program execution passes to the next statement in 
sequence that follows the word NEXT. 


NEXT 


The NEXT statement marks the end of a loop. 


Example: 
10 FOR ........... beginning of the loop 
| block of executable statements 
90 NEXT Leseaeenes end of the loop 


The same control variable must be used in both the FOR and NEXT statements. 


Example: 
10 FOR A......... beginning of the loop 
| block of executable statements 
90 NEXT 4 leseeeeeee end of the loop 


Variable A for both statements 


NEXT directs program execution back to the corresponding FOR as long as its 
control variable’s value is less than the terminating value indicated after the word 


TO. 
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NESTED LOOPS 
e Loops contained within other loops are said to be nested. 


e Nesting more than nine FOR . . . NEXT loops would generate the 
?2STACK OVERFLOW ERROR message. 


When nested, inner loops must be completely contained within the boundaries 
of outer loops. 


Example: 

10 FOR A=1 TO 3 ---------------- | 
| 
| ; 

20 FOR B=1 TO 8 --------, ! 
| a 
| . 

30 FOR C=1TO3--, } | 
| iid 
| 11 of 

50 NEXT C --------1 1 
| 7 
| - 

60 NEXT B ---------------- i 
, 3 
| : 

70 NEXT A ----------------- ceeceeee 


e The C loop is contained within the B loop. 
The B loop is contained within the A loop. 


e Inner loops are completely evaluated first. 
In the above example, the sequential execution order is as follows: 
1. Complete evaluation of Loop C 
2. Complete evaluation of Loop B 


3. Complete evaluation of Loop A 
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e NEXT statements may contain as many control variables as required. 
Example: 


10 FOR A=1 TO 5 

20 FOR B=6 TO 10 

30 FOR C=11 TO 20 
| 


| 
40 NEXT C, B, A 
tid 


e Every FOR statement must have its matching NEXT statement listed 
in the proper order. 
Example: 


10 FOR A=1 TO 3 


20. FOR B=1 TO 3 
30 FOR C=1 TO 3 
40 PRINT A,B,C 
50 NEXT A 
60 NEXT B 
70 NEXT C 

foi. 


would generate the ? NEXT WITHOUT FOR ERROR message. 


The proper order.is C, B, Aas shown below: 


50 NEXT C 
60 NEXT B 
70 NEXT A 

[ 


|— 
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BRANCHING IN AND OUT OF A LOOP 


e Branching in and out of a loop can be performed using a conditional 
statement with either a numeric or string variable. 


1. With a string variable. 
Example: 


String variable name: C$ 
Branching out condition defined at line number 50 


5 C$=a"'"' 
10 FOR ...... eee 


40 INPUT '’Customer’s name’’;C$ 
— 50 IF C$=’’None’’ THEN 100 
60 PRINT C$ 


90 NEXT 20.0... 
100 C$=''"": PRINT '’’NONE’’: END 


Loop execution proceeds as follows: 


Line 5: Variable C$ is assigned a null string. . 
50: If the string ’’None’’ is input at line number 40 the normal flow 
of execution of the loop statements will be interrupted and con- 
trol passes to line number 100. 
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e After branching out, the resumption of the execution of a loop, should 
be done through the corresponding NEXT statement. 


Example: 


5 C$ai"""" 
0 0) ee 
| 


40 INPUT ’’Customer’s name’’;C$ 
— 50 IF C$=’’None’’ THEN 100 
60 PRINT C$ 
| 


100 
| 


190 C$='''': GOTO 90 ----------------- 


e The control variable's value is the last value it had when the execution 
of the loop was interrupted. 


2. With a numeric variable. 
Example: 


Numeric variable name: Counter Branching out condition defined at 
line number 50 


5 Counter =0 
10 FOR ......... ccc eee cece eee 


40 Counter =Counter + 1 
50 IF Counter >6 THEN 90 
| 


| 
80 NEXT ....... eee 


90 PRINT ’’Counter = ’’;Counter 
100 Counter=0: END 
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Loop execution proceeds as follows: 


Line 5: Counter is set to 0. 
40: Counter is incremented by 1 after each execution. 
50: When Counter's value is equal to 7, program execution bran- 


ches out of the loop to line number 90. 
90: PRINT displays: Counter = 7. 
100: Counter is reset to 0. 


INDENT 


(Standing for INDENTATION} 


INDENT is a modifiable reserved variable to which is assigned a value that 
sets the number of spaces to be used to indent FOR... NEXT loops. 


e The system's default value is set to two spaces. 


For example, an assignment of a new value result in the following indentation 
after LISTing: 


5 INDENT=5 
10 FOR X=1 TO 100 
20 PRINT X 


30 NEXT X 
Tritt 


5 spaces 


When you begin to write a program in Business BASIC, you will most likely first 
decide what your main program loop will be—that is, what operations will be 
performed over and over again within your program. You should write your pro- 
gram loop with its control variables and when add to it branching or transfer of 
control statements necessary for processing. Remember that the essence of your 
program is the main processing loop. | 
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LISTS AND ARRAYS 


‘Lists and arrays are data storage structures that are used within a program. They 

provide a method of storing and manipulating related data within the program. 
This chapter describes lists and arrays and how to identify particular elements in 
lists and arrays. 


e Related items are organized into data structures referred to as lists 
and arrays. 


e A one-dimensional ordered (organized) set of related values (items) is 
called a list. 


e Each value in a list is an element of the list. 


e Elements of a list form a column. 


Example: 
Element 1 1234 
Element 2 2345 
Element 3 3456 
Element 4 4567 
Element 5 5678 
Element 6 6789 
Element 7 7890 


e A two-dimensional ordered set of related values is called an array. 
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e Elements of an array form rows and columns. 


Example: 
Column #1 Column #2 
Row 1 1234 2345 
Row 2 3456 4567 
Row 3 5678 6789 


e Arrays can have more than two dimensions. 


LIST AND ARRAY VARIABLES 


e A list or array variable is a single variable that refers collectively to 
all the individual elements of a list or an array. 


e The identifier that is appended to the array variable name defines the 
value type of the entire lists or array's elements. 


All elements of a list or an array must be of the same value type: real (floating 
point), single precision integer, double precision long integer or string. 


Type List Array 
1. real E(1) K(1,1,1) 
I I 
2. single precision integer Bey aie 
3. long integer E&(1) Belh hy 
if 


4. string E$(1) Bea 
t 
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SUBSCRIPTS 


e Each individual element in a list or an array is referenced (identified) 
by the list or the array variable name followed by one or more 
subscripts (numbers) enclosed in parentheses. 


These individual variables are called subscripted variables. 
Example: 


L(0 
0) 


refers to the first individual element of a list named L. 


— 


A(0,5 
1 


refers to the element located at row 0 and column 5. 


e Subscripts can range from 0, which is always the first element's 
subscript in a list or an array, to a maximum value of 32767. 


A subscript may be: 
1. a numeric constant: A(25}) 
2. a numeric variable: A(I%) 


3. an arithmetic expression: AU% + 25) 


e Subscripts must be positive integers. 
Negative subscripts generate an error message. 


If the subscript is not a whole number, its value is rounded. 


Example: 


ares is rounded to L(1)} 
1 


If the subscript value is a long integer, its value has to be converted first with the 
use of type conversion function CONV. 


LISTS AND ARRAYS 125 


LOCATING A UNIQUE ELEMENT 


To refer to a unique element of a list, you should specify the variable name of 
the list and the subscript of the unique element you want to access. 


Example: 


PRINT L(4) 
11 


will display the contents of element number 4 in the list named L. 


The number of subscripts needed to specify an individual element depends on 
the dimensions of the array. In a two-dimensional array, you would need two 
subscripts. 


Example: 


PRINT A(3.4 


will display the contents of the element located at row number 3 
and column number 4. 


DIM 


(Standing for DIMENSION} 


e The DIM statement specifies the maximum size (the largest subscript 
value) of a list and/or an array. 


Example: 


A(25} reserves memory space for twenty-six elements from A(0) up 
to A(25). 


e The dimension of a list or an array must be defined before it is ex- 
ecuted. 


e Referring to an array before defining its dimensions causes the 
?RANGE ERROR message to be displayed. 
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If you refer to a list or an array before defining it with a DIM statement, Business 
BASIC automatically reserves a default size of 11 elements per dimension with 
subscripts numbered from 0 to 10. 


Example: 
Arrays Default size Equivalent to 
One-dimensional 11 elements DIM A(10) 
Two-dimensional 121 elements DIM. A(10,10) 
Three-dimensional 1331 elements DIM A(10,10,10} 


e More than one list and/or arrays can be defined with a single DIM 
statement. Lists’ and/or arrays’ subscripted variables must be 
separated with commas. 

Example: 


10 DIM A(12},B%(2,24),C&(4,6),D$(26} 


collectively defines: 


1. a list of real values: A(12) 

2. an array of single precision integer values: B%(2,24) 
3. an array of long integer values: C&(4,6} 
4. a list of strings: D326 


e Referring to a nonexisting element or to a subscript value greater than 
defined dimensions causes the 7BAD SUBSCRIPT ERROR message to 
be displayed. 


Arrays are useful in handling a manageable amount of related data. A program 
can quickly reference elements in an array by performing a loop where the 
subscripted variable is incremented with each iteration of the loop. Arrays 
should always be dimensioned before being referenced. 


DATA INPUT 


There are several ways for computer programs to access or receive data. Two 
simple methods of data input are presented in this chapter. INPUT and GET 
statements are used to obtain data from the user during program execution. 
READ, DATA, and RESTORE statements are used when accessing data defined 
before program execution. 


e Interactive exchange of information between the user and the com- 
puter is done with statements and/or commands generally called in- 
put/output statements and/or commands. 

e This information is either entered in the computer's memory by typing 
it during program execution in response to the GET and/or INPUT 
statements or supplied beforehand in DATA statements. 


e The Input/Output statements described here are: 


INPUT, GET, READ, DATA and RESTORE. 


INPUT 


e The INPUT statement expects the user to type values during program 
execution. 


INPUT may be followed by: 
1. an ordinary or subscripted numeric variable. 
Example: 
INPUT X 


INPUT X,Y,Z 
INPUT X(12},¥(13),Z(14) 
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2. an ordinary or subscripted string variable. 
Example: 


INPUT X$ 
INPUT X$,Y$,Z$ 
INPUT X$(12),Y$(13),2Z$(14} 


3. a combination of both. 
Example: 
INPUT X,X$,X(12),X$(12),Y,Y$,Z,Z$, etc. 


When an INPUT statement is executed in any of the above forms, a question 
mark (?) is displayed on the screen for the user to input (enter from the 
keyboard) a value. | 


e If an INPUT statement includes several variables, they must be 
separated with commas. 


Example: 


10 INPUT A,B,C,D 
ttf 


e If several values are entered in sequence on a single line, they also 
must be separated with commas. 


Example: 


? 123,234,345,456 
fid 


Variables following the word INPUT will be assigned the entered values in their 
sequential order. 


Example: 


A=123 
B=234 
C=345 
D=456 
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e For numeric variables, INPUT will accept only numeric values. 
The numeric values may include: 
1. the unary plus (+) or minus (-) sign: 


+ 123 
-— 123 
t 


2. the decimal point: 


1.23 
12.34 
tT 


3. the letter E for scientific notation: 


1.23E + 2 
St —3 


e If a numeric value does not match the type of the corresponding 
numeric variable, it will be automatically converted to the same type. 


Example: 
Variable type Data type Result 
Real 12.34 12.34 
Integer 12.34 12 


e If necessary the numeric value will be rounded: 


Integer 12.89 | 3 
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e For string variables, INPUT will accept only string values. 


e There must be as many values entered from the keyboard as there are 
variables following the INPUT statement. 


10 INPUT A,B,C,D 

expects four numeric values separated by commas. 
10 INPUT A$,B$,C$,D$ 

expects four string values separated by commas. 
10 INPUT A,A$,B,B$ 

expects four different type values: 

. numeric for variable A 

. string for variable A$ 


. numeric for variable B 
. string for variable B$ 


hw Wb — 


If in response to a multiple INPUT, for instance: 
10 INPUT W,X,Y,Z 


you press the RETURN key after the first data, Business BASIC displays two 
question marks (??) for the subsequent data. 


Example: 
? 1 RETURN or ENTER key 
2? 2,3 RETURN or ENTER key 
2? 4 
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A string may optionally be included in an INPUT statement. 
The two following statements: 


10 PRINT ’’Future value of initial investment’’; 
20 INPUT FV 


can be combined in one single statement. 
Example: 


10 INPUT ’’Future value of initial investment’’;FV 


GET 


Any single alphanumeric character from the keyboard may be assigned to a 
specific numeric or string variable with the GET statement. 


e The assigned character will not be displayed on the screen. 


Also, you are not required to press the RETURN or ENTER key after 
you type a character. 


The variable following GET may be: 
1. numeric. 
Example: 
GET X 


e The assigned character must be a digit from 0 to 9. Typing a non- 
numeric character causes the variable X to be assigned a value of 0. 


2. alphanumeric (string). 
Example: 


GET X$ 
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e The typed character may be a letter, a digit or a symbol. 


e CONTROL-C is treated like any other character. It does not interrupt 
program execution. 


GET can only be used as a program statement in deferred execution. 


Example: 


10 GET A$: IF A$ <> ''A’’ THEN 10 
20 PRINT ‘’You typed letter A’’ 

30 GET B: IF B <> 1 THEN 30 

40 PRINT ‘’You typed number 1’’ 

50 END 


Line 10:. Program execution will be locked in an infinite loop (THEN 
10) as long as the typed character is different from letter A. 
20: However, if letter A is typed, program execution passes to line 
number 20 and the PRINT statement displays the string: You 
typed letter A. | 
30: Program execution will again be locked in an infinite loop un- 
til number 1 is typed. 


READ 


e When large numbers of numeric or string data items are to be entered 
into the computer, the READ/DATA pair of statements is more useful 
and reliable than the standard INPUT statement 


The READ statement is followed by one or more variables that are assigned the 
appropriate (corresponding) data values listed in the DATA statement. 
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READ may be followed by: 
1. an ordinary or subscripted numeric variable. 
Example: 
READ X 


READ X,Y,Z 
READ X(12},Y(13),Z(14} 


2. an ordinary or subscripted string variable. 
Example: 
READ X$ 


READ X$,Y$,Z$ 
READ X$(12),Y$(13},Z$(14) 


3. a combination of both. 
Example: 
READ X,X$,X(12),X$(12),Y,Y$,Z,Z$, etc. 


e There must be as many items in the DATA statement(s) as there are 
variables in the READ statement(s). 


Example: 


Four numeric variables READ A,B,C,D 
must correspond to | 
four numeric values DATA 1,2,3,4 


Four string variables READ A$,B$,C$,D$ 
must correspond to | 
four string values DATA a,b,c,d 
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e Each DATA item is assigned each READ variable on a one to one 
basis. 


Example: 
READ A,B,C,D 
DATA 1,2,3,4 
results in the following assignments: 


A=1 B=2 C=3 D=4 


Example: 
READ A$, B$, C$, D$ 
| 
DATA a, b, c, d 


results in the following assignments: 


Example: 
READ A,A$,B,B$,C,C$,D,D$ 
| 
DATA 1,a,2,b,3,c,4,d 


results in the following assignments: 


A$=1 A$=a B=2  B$=betc. 


e For numeric variables, READ will accept only numeric values. 
The numeric values may include: 
1. the unary plus ( + ) or minus (—) sign: 
+123 
—123 
T 
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2. the decimal point: 


1.23 
12.34 
I 


3. the letter E for scientific notation: 


1.23E2 
2st —3 


e For string variables, READ will accept only string values. 


Assigning a string to a numeric variable causes the 7S YNTAX ERROR 
message to be displayed. 


e Strings without enclosing quotes are called literals. Literals enclosed 
in quotes are called strings. Both strings and literals are valid DATA 
elements: 


100 DATA ""Business BASIC” 
100 DATA Business BASIC 
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When READ encounters a comma (,} instead of a data item, the corresponding 
variable will be assigned: a 0 (zero) if it is numeric; 


a null string if it is alphanumeric. 


Example: 
READ variable DATA list of items Assignment 
A,B,C , , 10 0 0 10 
in 
A,B,C 10, , 10 0 O 
tt 
A,B,C 10 , 10 OUT OF DATA error 
tT 
A,B,C 10, , 10 10 0 10 
A$,B$,C$ , , STRING STRING 
t 
A$,B$C$ STRING , , STRING 
t 
A$,B$,C$ STRING , STRING OUT OF DATA error 
t 


A$,B$,C$ 


STRING , , STRING 


STRING STRING 
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DATA 


The DATA statement is followed by a list of numeric or string values or a com- 
bination of both. 


Variables may not be included in a list of DATA items. 


The DATA elements are read in sequence and followed by an internal pointer 
which is incremented every time an element is read. 


Example: 


DATA elements can appear on one or more lines. 


100 DATA 1,2,3 
Or 


100 DATA 1 
110 DATA 2 
120 DATA 3 


are both valid DATA statements 


After the first element of the first line has been read, the data list 
pointer moves to the next data element with a higher line number un- 
til the last data element has been read. 


There must be as many data elements as there are variables in the 
READ statement(s). Otherwise, the ?0UT OF DATA ERROR message 
is displayed. 
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DATA statements can appear anywhere in a program. 
Example: 


— 10 DATA 10, 20, 30 
20 FOR D=1 TO 3 


— 30 READ X 
40 PRINT X 
50 NEXT D 


10 FOR D=1 TO 3 


— 20 READ X 
30 PRINT X 
40 NEXT D 


— 50 DATA 10, 20, 30 
e The terminating value of LOOP D has been assigned a value of 3 
because the DATA statement contains three items to be assigned to 
variable X. 
e No statement following a DATA statement will ever be executed. 


Example: 


10 DATA list of items: Statement 
t 


The above statement should be placed at the next higher numbered program line. 
Example: 


10 DATA list of items 
— 20 Executable statement 


RESTORE 


e An internal pointer points to the DATA item to be read by the READ 
statement in order to maintain the proper correspondence between 
the READ variables and the DATA list of items on a one to one basis. 
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The RESTORE statement is used whenever the same DATA has to be read 
more than once. It moves the pointer back to the beginning of the DATA list of 
items. 

Example: 


10 FOR A = 1 TO 3 
— 20 RESTORE 

30 FOR B = 1 TO 3 

40 READ X 

50 PRINT X, 

60 NEXT B 

70 PRINT 

80 NEXT A 

90 DATA 10, 20, 30 


In the above example, the data items in line 90 are read and displayed three 
times in a row: 


10 20 30 
10 20 30 
10 20 30 


Loop A in line 10 has caused the RESTORE statement to be executed three 
times. 


e Like RESTORE, a RUN or CLEAR statement moves the pointer back 
to the first element in the DATA list. 


Although it may seem relatively simple to perform data input using the INPUT 
and GET statements, it can become quite complicated. Your program should per- 
form data checks to assure that the user enters data corresponding exactly to the 
range, length or type of data your program is prompting for. Use the DATA, 
READ, and RESTORE statements when you can identify the data to be input 
before program execution. . 


PROGRAM EXECUTION 


The previous chapters described data types, functions, statements, and program- 
ming techniques. In order to execute a Business BASIC program, an under- 
standing of the statements and commands presented in this chapter is essential. 
Here, the text defines, describes the format and provides examples of ten 
statements and commands used for program execution—NEW, CLEAR, FRE, 
SAVE, LOAD, RUN, STOP, CONT, END and CHAIN. 
The statements and commands described here are: 
NEW, CLEAR, FRE, SAVE, LOAD, RUN, STOP, CONT, END and CHAIN. 
With Business BASIC, program execution may be directed from: 
1. the keyboard, in immediate mode: 
Statements are immediately executed after you press the RETURN 
or ENTER key. 
2. a program, in deferred mode: 
after you type the RUN command 
(the program may be currently stored in the computer's memory or 


previously saved on a peripheral device} 


3. a TEXT file, with the EXEC command/statement. 
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NEW 
The NEW command/statement: 


1. erases the program currently stored in memory. 


2. sets all numeric variables to 0 and all string variables to null strings 


3. closes all open files with the exception of any EXEC file being ex- 
ecuted. 


Assume we have the following program stored in memory: 
10 A=5+5: B=5*5 
20 A$=''A$ before the NEW command’’ 
30 PRINT A,B 
40 PRINT A$ 
50 END 


If after the NEW command, we type the LIST command, no program will be 
displayed on the screen. 


Additionally, a PRINT A, B, A$ statement in immediate mode will display two 0 
for variables A and B and a null string for variable A$. 


CLEAR 
A CLEAR command/statement: 


1. sets all numeric variables to 0 and all string variables to null strings. 


2. Clears all pointers and stacks. 
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3. closes all open files with the exception of any EXEC file being ex- 
ecuted. 


Example: 


10 A=54+5: B=5*5 
20 A$=’’A$ before the CLEAR statement’’ 
30 PRINT A,B 
40 PRINT A$ 
— 50 CLEAR 
60 PRINT A,B 
70 PRINT A$ 
80 END 


Line 30: Displays the variables A and B, values 10 and 25 respectively. 
40: Displays the string: A$ before the CLEAR statement. 
60: Displays two 0 for variables A and B. 
70: Displays a null string for variable A$. 


e Howewer, the program remains in memory. 
A LIST command will display it again. 


FRE 
(Standing for FREE} 


FRE is a reserved variable that stores the amount of memory space remaining 
available to the user. This amount is measured in bytes. 


e In the binary system, the smallest unit of information, consisting of a 0 
or a 1, is called a bit. 


A sequence of adjacent bits treated as a unit is called a byte. 


A word may consist of one or more bytes. 
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SAVE 


The SAVE command transfers a copy of the program currently in memory to a 


disk. 


e This copy is called a BASIC program file. 


Following the reserved word SAVE, you must specify: 


1. the disk drive reference name which consists of: 


a period SAVE yp! 
the letter D SAVE .D1 
and the drive number SAVE Ds 


.D1 refers to the built-in disk drive. .D2, .D3, .D4 refer to additional 
external disk drives. 


2. the file name preceded with a slash (/): 


SAVE .D1/Inventory 
if 


Saving a file on a disk that already contains a BASIC program with the 
same file name causes the erasure of the old file. 


If an error is made, the following messages are displayed: 


?FILE LOCKED ERROR 
if you try to save a file with the same file name as a locked BASIC pro- 
gram 


?TYPE MISMATCH ERROR 
if you try to save a file with the same file name but which is not a 
BASIC program. 
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LOAD 


LOAD reads a specified BASIC program from a disk file, and stores it in memory. 
Following the reserved word LOAD, you must specify: 


1. the disk drive reference name which consists of: 


a period LOAD jp} 
the letter D LOAD p! 
and the drive number - LOAD De 


e .D1 refers to the built-in disk drive. .D2, .D3, .D4 refer to additional 
external disk drives 


2. Or, instead of the drive number, the volume name preceded by a slash (/). 


Example: 
LOAD/Accounting 
And in both cases: 


The file name must be preceded with a slash: 


LOAD .D Mnventory 


or 


LOAD /Accounting/Inventory 
I 
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e When a LOAD command is executed: 


1. The numeric variables are automatically set to 0 and the string 
variables to null strings. 


2. All files are closed with the exception of any EXEC file being ex- 
ecuted. 


3. Any program currently stored in memomy is. erased and replaced by 
the new program. 


If an error is made, the following messages are displayed: 


7UNDEFD STATEMENT ERROR 
if the specified line number does not exist. 


?FILE NOT FOUND ERROR 
if the specified file name does not exist. 


?TYPE MISMATCH ERROR 
if the specified file is not a BASIC program. 


RUN 


The RUN command may be used to execute an existing program: 
At screen level: 
Before running (executing) a program, the RUN command: 
1. sets all numeric variables to 0 and all string variables to null strings. 


2. closes all open files with the exception of any EXEC file being ex- 
ecuted. 


e RUN, with no additional indication, will execute the current program 
in the computer's memory from its lowest line number. 


e RUN 100 will execute the program in memory starting with line 
number 100 
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At device level: 


To execute a program previously saved on disk, following the RUN 
command, you must specify: 


1. the disk drive reference name which consists of: . 


a period RUN ;p! 
the letter D RUN ‘Dt 
and the drive number RUN De 


e .D1 refers to the built-in disk drive. .D2, .D3, .D4 refer to additional 
external disk drives 


2. Or, instead of the drive number, the volume name preceded by a slash (/). 
Example: 


RUN Accounting 


And in both cases: 
The file name preceded with a slash: 


RUN .D1/Inventory 
1 


or 


RUN /Accounting/Inventory 
I 


e RUN ‘Accounting/Inventory 6170 


will begin execution of the BASIC file Accounting/Inventory at line 
number 6170 
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¢ RUN is the last statement executed in any line. Any other statement 
following RUN will not be executed. 


Example: 


90 INPUT ‘Do you want to run the program’;X$ 
100 IF X$=’YES’ THEN RUN : GOSUB 1000 


The GOSUB statement will not be executed if the user's answer at 
line 90 is YES 


STOP 


1. halts program execution at the line number where it appears. 
2. closes any executing TEXT file. 
3. returns Business BASIC to immediate execution mode. 


4. resets the output to the console. 


o 


redisplays the system prompt. 


e When a STOP statement is executed, a message is displayed, in- 
dicating the line number of the program where the statement has been 
executed. 


Example: 


?BREAK IN aed 


e The program in memory is not altered in any way. 
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CONT 
(Standing for CONTINUE} 
CONT will restart a program that has been halted by: 
1. an error. 
2. the STOP or END statements. 
3. a CONTROL-C. 


1. An error made in immediate execution mode will not prevent a program 
from being CONTinued. 


If a program is halted by an error, execution will be CONTinued 
starting with the statement in which the error occurred. 


2. Execution is resumed at the statement immediately following the STOP or 
END statement. 


Example: 


10 PRINT ’’Beginning of the program’’ 
— 20 STOP: pRINT ‘'Execution resumes at line 20’’ 


¢ CONT may not be used as a program statement. 


You cannot use a CONT command after you add or alter statements in a program 
that has been halted by a STOP statement. Trying to CONTinue it causes the 
?CAN'T CONTINUE ERROR message to be displayed. 
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However, you may, in immediate mode, alter the values of existing variables 
by new assignment statements. 


Example: 


10 X=100 
20 PRINT X 
30 STOP 
40 PRINT X 


Line 20: Displays the assigned value to variable x: 100. 
30: STOP halts the program and displays the message 7BREAK IN 
30. 


Assume that before typing CONT you enter the following 
assignment statement: 


X=X + 100 


after you CONTinue the program execution, PRINT at line 40 displays the newly 
assigned value to variable X, that is, 200. 


END 


END marks the logical end of a program or a subroutine. 


e END is identical to STOP except that no message is displayed when it 
is executed. 


END may be used to stop execution of a program. 
Example: 
10 PRINT ‘’Line 10’ 
20 END 
30 PRINT ’’Line 30’ 


Line 20: END ends the program and displays the system's prompt 
character. 


e If you type CONT, program execution continues and displays the 
string: Line 30. 
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CHAIN 


CHAIN automatically loads and runs one or more specified programs. 


e When a program is too large (i.e., when it requires more memory than 
is available) it may be split in sections and saved on disk. Then execu- 
tion of each section of the original program is performed with the 
CHAIN statement. 


For example, assume that a large program originally entitled ACCOUNTING is 
split in two distinct sections entitled: | 


Accounting.Section.One 
and 
Accounting.Section.Two 


10 REM Accounting Section One 
20 X=100 
30 PRINT X 
— 40 CHAIN ’’.D2/Accounting.Section.Two’’ 


10 REM Accounting Section Two 
20 X=X+100 © 

30 PRINT X: END 

40 X=X + 1000 

50 PRINT X 

40 END 


and saved on disk on drive 2 with the following commands: 


SAVE ’ D2 Accounting Section. One " 


SAVE ‘''.D2/Accounting.Section.Two’’ 
t f 


respectively. 
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After LOADing into the computer's memory and RUNning Accounting. Sec- 
tion.One, program execution proceeds as follows: 


Line 30: Displays the assigned value to variable X at line 30, i.e., 100. 
40: CHAIN loads and runs Accounting.Section.Two. 
50: Displays the new computed value of variable X, that is, 200 
(X=X + 100). 


e The assigned value of variable X in Accounting.Section. One has 
been used in Accounting.Section.Two. 


X=100 at line 20 in Accounting.Section.One. 
X=X +100 at line 20 in Accounting.Section.Two. 


Assume we add now at the end of the CHAIN ‘statement in line 40 in Accoun- 
ting.Section.One a line number where we may want program execution to start: 


40 CHAIN "’ “DalAccounting Section. Two,40" ’ 


The new computed value of variable X will be set to 1100, that is X= X + 1000. 
The value of X determined in Accounting.Section.One has been transferred for 
use in Accounting.Section.Two. 


e If an error is made, the following messages are displayed: 


?FILE NOT FOUND ERROR 
if the program specified in the CHAIN statement does not exist. 


?7REDIM ERROR 
if the chained program dimensions an array that was dimensioned 
in the previous program. 


You should become completely comfortable with the statements and commands 
discussed in this chapter, as they are absolutely vital in running a Business 
BASIC program. Also, become familiar with the advantages the various 
statements and commands provide for you in immediate mode or deferred mode. 
The STOP statement is a valuable debugging tool because you can use it to 
display values during program execution. 


SCREEN DISPLAY 


The PRINT statement is the simplest command to display output on the terminal 
screen. Business BASIC provides additional functions and statements that give 
you more control of screen display. This chapter contains a detailed discussion of 
the PRINT statement and introduces eight screen display functions and 
statements—TAB, SPC, WINDOW, VPCS, HPCS, HOME, INVERSE and NOR- 
MAL. 


Information (numeric or string data) entered through the keyboard is 
» automatically displayed on the screen with a PRINT instruction which may be 
used as a command in immediate mode or a program statement in deferred 
mode. . 


Many additional functions and statements, used with or without the PRINT 
statement, allow the user to gain complete screen control. These functions and 
statements, described here, are: 

TAB and SPC to insert spaces into the text. 

WINDOW bo set the position and size of the text window. 


HOME, and the reserved variables VPOS and HPOS, to control 
the position of the cursor within a text window or the screen. 


NORMAL, and INVERSE to display black letters on a white 


background or to invert the display (white letters on a black 
background). 


PRINT 


A PRINT command/statement may be followed by any numeric or string expres- 
sion. 
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A numeric expression may be: 
1. a numeric constant: PRINT 100 
2. a numeric variable: PRINT A 
3. an arithmetic operation: PRINT 10+ 10 


e The question mark (?) is an accepted abbreviation for the keyword 


PRINT. 

‘Example: 
2? 100 is identical to PRINT 10f0 
2A is identical to PRINT A 
?210+10 is identical to PUNT 10+ 10 


A numeric expression may be followed by a punctuation operator: 


1. a comma: PRINT 100,200 
t 


A comma causes a TAB action, that is, the cursor moves to the next tab field on 
the screen 


100 100 
t t 


next tab field 


2. a semicolon PRINT 100;100 
t 


A semicolon leaves the cursor in the position immediately following the last 
character displayed: 


100,00. 


No space between the two constants. 
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e If there is no punctuation operator after the PRINT command/state- 
ment, the cursor moves to the beginning of the next line. 


An alphanumeric expression (string) may be: 
' 1. a literal ADAM 
2. a string: "a&bl(c}9d'e="’ 
e The closing quote of a string may be omitted: 


PRINT ’’ADAM 
PRINT Va&bl(clode = 


3. a string variable: A$ 


4. concatenated strings or string 
variables: TAT + BY! 
A$ + BS 
t 


e The combined length of strings concatenated with the concatenation 
operator (+) may not be greater than 255 characters. 


However you may use a semicolon instead of the concatenation 
operator to exceed this limit. 


Example: 


PRINT A$;Z$ 
t 


instead of 


PRINT A$ + Z$ 
t 


A string expression may be followed by a punctuation operator: 


1. a comma: PRINT ’’ABC’’,""DEF’’ 
tT 
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A comma causes a TAB action, that is the cursor moves to the next tab field on 
the screen: 


ABC DEF 
f f 


next tab field 


2. a semicolon PRINT "“ABC’’:’’DEF”’ 
t 


A semicolon leaves the cursor in the position immediately following the last 
character displayed: 


ABC DEE 


No space between the two strings. 


e If there is no punctuation operator after the PRINT command/state- 
ment, the cursor moves to the beginning of the next line. 


TAB 


(Standing for TABULATION] 


The TAB key 
e The screen is 80 characters wide. It is divided by five 16-character- 
wide tab fields. 
Each time you press the TAB key, the cursor is moved to the beginning of the 


next tab field. 


If you type a character at the last character position of a tab field, the cursor will 
move to the beginning of the next tab field. 
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e A character typed at the last character position of the fifth tab field 
will automatically move the cursor to the next line. 


The TAB statement 


e You can move the cursor to any screen position by putting a TAB 
specification into the PRINT statement. 


e The TAB specification must be followed by an argument in paren- 
theses. 


The argument may be: 


1. a numeric constant: PRINT TAB(12) - 
t 


2. a numeric variable: PRINT TABIX' 


3. an arifhmetic expression: PRINT TABI + 12) 


TAB may be preceded and followed by a numeric expression: 


PRINT X + 12;TAB(20);Y*2;TAB(20):Z/4 
t t t 


or a string expression: 


PRINT p BLD "-TAB(20); ' ‘FIELD2’';TAB(40); ' ‘FIELD3"" 


¢ TAB defines the starting printing position from the left margin of the 
screen line: 


Column t Column 20 Column ri 
t 


FIELD1 FIELD2 FIELD3 
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For better readability, a semicolon can be inserted between the. TAB specifica- 
tion and any string or numeric expression. 


Example: 


PRINT ‘’FIELD1'’;TAB(20);TOTAL;’’FIELD2’’ 
t tT 


A comma or a semicolon may be used at the end of the statement. 
Example: 


10 PRINT TAB(20});'"FIELD 1’’, 
tT 


20 PRINT ’’TOTAL AMOUNTS” 

generate the following display: 

FIELD 1 TOTAL AMOUNTS 
With a semicolon instead of a comma: 


10 PRINT TAB(20);""FIELD 1°’; 
tT 


20 PRINT '’TOTAL AMOUNTS” 
generate the following display: 


FIELD 1TOTAL AMOUNTS 
t 
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SPC 
(Standing for SPACE) 


e You can insert spaces by putting a SPC specification into a PRINT 
statement: 


e The SPC specification must be followed by an argument in paren- 
theses. 


The argument may be: 


1. a numeric constant: PRINT SPele2) 


2. a numeric variable: PRINT SPC(X) 
f 


3. a numeric expression: PRINT SPC + 12) 


SPC may be preceded and followed by a numeric or string expression. For exam- 
ple, the following program inserts one to six spaces between the numeric variable 
X and the string ABCDE. 


10 FOR X=1 TO 6 
20 PRINT XSPC(X);""ABCDE" 


30 NEXT X 

40 END 

1 ABCDE 

2 ABCDE 

3. ABCDE 

4 ABCDE 

5 ABCDE 
6 ABCDE 
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e The maximum value of the argument is 255. 


However, it is possible to exceed this limit by stringing together a 
series of SPC statements: 


PRINT SPC(250)SPC(250)SPC(250} 


WINDOW 


WINDOW sets the position and size of the window (any square or rectangle 
area within the total screen) where text is displayed. 


Example: 
WINDOW 6,9 TO 16,19 
The two first coordinates specify the upper left corner of the window: 


WINDOW 6,9 TO 16,19 
I 


Column 6: horizontal coordinate 
Row 9: vertical coordinate 


The coordinates following the word TO specify the lower right corner 
of the window: 


WINDOW 6,9 TO 1° 1 


Column 16: horizontal coordinate 
Row 19: vertical coordinate 


e When a WINDOW statement is executed, the cursor moves to the 
lower left corner of the specified window. (The HOME command 
moves it to the upper left corner.) 
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The WINDOW statement coordinates may be specified by a numeric constant, a 
numeric variable or an arithmetic expression. 


e A coordinate value of 0 is automatically converted to a value of 1. 
e Each value must be within the range 0 to 255. 
e The parameter values are relative to the limits of the screen. 


e The size of the window cannot exceed that of the screen, that is 80 col- 
umns by 24 lines. 


VPOS 
(Standing for VERTICAL POSITION) 


Values assigned to the reserved variable VPOS specify the vertical position of 
the cursor within a window or the total screen. 


Example: 
VPOS = 6 
moves the cursor vertically to the sixth line within the current window. 
e All parameters are relative to the current window dimensions. 
For instance, in VPOS= 1 
1 specifies the first line of the current window. 


Values assigned to VPOS can be specified by any integer constant, variable, or 
any real arithmetic expression. 


e When VPOS is used to move the cursor vertically, the cursor's 
horizontal position is not affected. 
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You can find the current position of the cursor by referring to the value of VPOS 
in a PRINT command/statement. 


Example: 
PRINT VPOS 


displays the current vertical position of the cursor on the screen relative to the 
upper margin of the window. 


¢ VPOS cannot move the cursor to a position outside of the window. 
e Values must be within the range 0 to 255. 


¢ VPOS values greater than the height of the window cause the cursor 
to move to the bottom line of the window. 


e A value of 0 is automatically converted to a value of 1. 


HPOS 
(Standing for HORIZONTAL POSITION) 


Values assigned to the reserved variable HPOS specify the horizontal posi- 
tion of the cursor within a window or the total screen. 


Example: 
HPOS = 6 
moves the cursor horizontally to the sixth column within the current window. 
e All parameters are relative to the current window dimensions. 
For instance, in HPOS=1 
1 specifies the first column within the current window. 


Values assigned to HPOS can be specified by any integer constant or variable, or 
any real arithmetic expression. 
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e When HPOS is used to move the cursor horizontally, the cursor’s ver- 
tical position is not affected. 


You can find the current position of the cursor by referring to the value of HPOS 
in a PRINT command/statement. 


Example: 
PRINT HPOS 


displays the current horizontal position of the cursor on the screen 
relative to the left margin of the window. 


¢ HPOS cannot move the cursor to a position outside of the window. 
e Values must be within the range 0 to 255. 


e HPOS values greater than the width of the window cause the cursor 
to move to the right margin of the window. 


e A value of 0 is automatically converted to a value of 1. 


HOME 


¢ HOME clears the TV or video screen and sets the cursor to the upper 
leftmost position of the screen. 


HOME clears all text within a current window and moves the cursor to the up- 
per left corner of the window. 


e No parameter is required after HOME. 


¢ HOME may be used either in the immediate (command) mode or in 
the deferred (program) mode. 


Example: 


Line 


INVERSE 
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10 HOME 

20 FOR I=1 TO 24 

30 PRINT ''*”, 

40 NEXT I 

50 FOR J=1 TO 1000: NEXT J 
60 GOTO 10 


10: HOME clears the screen and moves the cursor to the upper left- 
most position of the screen. 

30: PRINT displays 24 asterisks. 

50: Delay loop. 

60: GOTO branches back to line number 10 


INVERSE 


resets the screen output in the inverse mode. 


Characters displayed on the screen before the execution of INVERSE are not af- 


fected. 


INVERSE 


has no effect on characters read from or written to files. 
No parameter is required after INVERSE. 


INVERSE may be used either in the immediate (command) mode or 
in the deferred (program) mode. 


Example: 


Line 


10 HOME 

20 PRINT ’’Black characters on a white background’’ 
30 FOR T=1 TO 1000: NEXT T 

40 INVERSE 

50 PRINT ’’White characters on a black background’’ 
60 END 


10: HOME clears the screen and sets the cursor to the upper left- 
most position. 
40: INVERSE sets the inverse display mode. 
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NORMAL 


NORMAL resets the screen output in the normal mode. 


Characters displayed on the screen before the execution of NORMAL are not af- 
fected. 


NORMAL has no effect on characters read from or written to files. 
e No parameter is required after NORMAL. 


¢ NORMAL may be used either in the immediate (command) mode or 
in the deferred (program) mode. 


Example: 


10 HOME 
20 INVERSE 
30 PRINT ‘Black characters on a white background’’ 
40 FOR T=1 TO 1000: NEXT T 

— 50 NORMAL 
60 PRINT ’’White characters on a black background’’ 
70 END 


Line 10: HOME clears the screen and sets the cursor to the upper left- 
most position. 
20: INVERSE sets the inverse display mode. 
50: NORMAL restores the normal display mode. 


Displaying output on a terminal screen is an important skill in data processing, 
and might even be'called an art. No matter what functions and statements you 
use, keep in mind that the screen display should be easy for the user to read and 
to work with. 
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FORMATTED OUTPUT 


The previous chapter discussed the PRINT statement and other methods of 
screen display. Business BASIC also provides the capability to format output in 
file writing. This chapter introduces the PRINT [#] USING statement, a statement 
rich in its ability to format output in various ways according to characteristics 
defined within the program. Many examples are provided of the PRINT [#] US- 
ING statement as well as possible error messages associated with its use. 


PRINT [#] USING 
e Information output (numeric or string data) may be formatted for: 
1. screen display with the PRINT USING statement 


2. file writing with the PRINT [#] USING statement 


e Formatted information is controlled within printing fields. 
e Printing fields are defined by string format specifications. 
String format specifications must be enclosed in quotation marks. 
| Example: 


4 AAR ABET 
I i 


String format specifications may consist of: 


- numeric signs + or — 

- a dollar symbol $ 

- characters #,$ or / 

- letters A,C,R,X or Z 
- delimiters, , Or ; 


- a repeat factor 
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Like any other string, a string format specification may be assigned to a string 
variable. 


Example: 
F$='' + ###.###" 


Each of these characters, signs, letters and/or symbols reserves a printing posi- 
tion within the limits of the defined printing field. 


Example: 
Format specification: + ### HHH 
Li ttttt 
Printing positions: 12345678 


e Each string format specification corresponds to one printing field. 


e For simpler and quicker readability, both PRINT USING and 
PRINT# USING will collectively be referred to as PRINT[#] USING 


NUMERIC FORMAT SPECIFICATIONS 


e Whether real, integer or long integer, numeric data may be handled 
with one of the three following format specifications: 


1. fixed-point (no exponent included); 
2. scientific notation (with an exponent}; 


3. engineering notation (with an exponent). 
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NUMERIC OUTPUT IN FIXED-POINT FORMAT 
Example: 


Format specification: 4+ HHH HEU 
Value to display: +12,3496 


In the above string format specification, eight positions are reserved by: 


A plus sign + for position 1 
number sign # for positions 2, 3 and 4 
A decimal point. for position 5 
A number sign # for positions 6, 7 and 8 


The plus sign ( + ), the digits and the decimal point (.) contained in the value to be 
formatted will be displayed in the corresponding reserved positions as specified 
in the string format specification. 


Example: 


Reserved positions: 12345678 
Pertti 


Format specification: + HHH HEE 


Pettit 


Value to display: + 12.3456 
Tt ftrttt 


Displayed value: + 12.346 


e A space precedes the displayed value + 12.346 


since the integer part has only two digits for the three reserved positions. 
The decimal point is displayed in the previously reserved position, i.e., the fifth. 


The fractional part .3456 has been rounded off to .346 to fit it in the three 
reserved positions. 
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OTHER SPECIFICATION CHARACTERS 


¢ In addition to the digit specification characters, the fixed-point format 
uses the following characters: 


Character Function 

$ Reserves a position for a dollar sign. 

** Prints asterisks instead of leading spaces. 

+ + Reserves rightmost positions for positive 


numeric sign and dollar sign (if any). 

_ Reserves rightmost positions for negative 
numeric sign and dollar sign (if any). Numeric 
sign is printed only if value is negative. 

$$ Reserves rightmost unused positions for a dollar 
sign and numeric sign (if any). 


NUMERIC OUTPUT IN SCIENTIFIC NOTATION FORMAT 


e The scientific notation specification formats numeric output in 
scientific notation. 


The scientific notation format specification may contain: 


a plus (+) or a minus (—) sign; 

a decimal point (.) preceded by an optional digit position[#]; 
a digit position[#] with an optional repeat factor; 

letter Z instead of the number sign #; 

an exponent (letter E) with an optional repeat factor. 


akoONP 


Examples with: 
1. A numeric plus ( + ) or minus (—) sign: 


PRINT[#] USING "' + .4#4E’’;1.12345 returns: +.1123E +01 
PRINT[#] USING " 7 A4#4E'';1.12345 returns: —.1123E + 01 


2. a decimal point (.) preceded by an optional digit position[#]: 


PRINT[#] USING ''#.4#4E’':1.12345 
PRINT[#] USING “’ + jfHIPAE";1.12345 returns : .1123E +01 
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e When a digit position is defined to the left of the decimal point, the 
first significant digit of the value to be displayed is shown at the 
defined position. 


Example: 


PRINT[#] USING "’ pane "1.12345 


returns 1.1235E + 00 


e When no digit position is defined to the left of the decimal point, the 
most significant digit is displayed to the right of the decimal point. 


Example: 


PRINT[#] USING “ * A#4E!"-1.12345 


returns + ee +01 


3. A digit position # with an optional repeat factor: 


Both PRINT[#] USING "' + .4#4E''-1.12345 
and PRINT[#] USING" + .4###4E'';1.12345 return : + .1123E +01 
if 


e Zeros will be added to the end of the displayed value to fill in unused 
defined positions. 


Example: 


PRINT[#] USING "+ SABE -1234 


5 digit positions 


returns + .12340E +4 
t 


5 digits to the left of the exponent 
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PRINT[#] USING" + 7#3B'";1234 


7 digit positions 


returns + .1234000E + 4 
t 


7 digits to the left of the exponent 
4. A letter Z used instead of the number sign[#]: 


Both PRINT[#] USING "' + .ZZZZ4E"";1.12345 
and PRINT[#] USING "' + .¢4###4E'';1.12345 return: + .1123E +01 
i 


The result is identical. 


5. An exponent (E) with an optional repeat factor: 


Both PRINT[#] USING "’ + .4#4E’';1.12345 
and PRINT[#] USING '’ + APREEE (1.12345 return: +.1123E +01 


e Either three or four character positions must be allowed for the expo- 
nent. ; 


With three character positions defined, only one is available for the exponent's 
digit. 
Example: 


PRINT[#] USING "' + 4#98'";12345 


returns: + .12345E + , 


With four character positions defined, only two are available for the exponents 
digits. 
Example: 
PRINT[#] USING ’’ + ARE 12345 


returns + .12345E + ras 
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NUMERIC OUTPUT IN ENGINEERING NOTATION FORMAT 
e The engineering specification forces the exponent'’s value to be a 
multiple of 3 and has a maximum of three digit positions to the left of 


the decimal point. 


The engineering format specification may contain: 


1. a numeric plus (+) or a minus (-—) sign; 
a maximum of three reserved positions to the left of the decimal 
point; 


3. digit positions with an optional repeat factor; 

letter Z instead of the number sign[#]; 

an exponent with an optional repeat factor but with a minimum of 
three positions. 


as 


Example: 
1. A numeric plus (+) or minus (-) sign: 


PRINT[#] USING "' + 3#.4#4E'';1234 returns: + 1.2340E +03 
PRINT[#] USING "' —-3#.4#4E’’; - 1234 returns: — 1.2340E + 03 
I 


2. A maximum of 3 reserved positions to the left of the decimal point: 


PRINT[#] USING ''3#.4###4E’’;1234 
t 


3. Digit positions with an optional repeat factor: 


Both PRINT[#] USING "4 34 444%''-1234 
and PRINT[#] USING "' + ###.¢4###4E'';1234 return: + 1.2340E + 03 
i 


4. A letter Z instead of the number sign #. 


PRINT[#] USING "' + 3#.4#4E’"}1234 returns: + 1.2340E + 03 
PRINT[#] USING "' + 3Z.4Z4E’';1234 returns: + 01.2340E + 03 
I 


e Z inserts a leading 0. 
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5. An exponent with an optional repeat factor: 


Both PRINT[#] USING” + .4#4E’’;1234 
and PRINT|#] USING "' + 4#REEE;1234 return: + 1.2340E + 03 


e Either three or four character positions must be allowed for the expo- 
nent. 


With three character positions defined, only.one is available for the exponent's 
digit. 


Example: 


PRINT[#] USING "’ + APNE 


returns: + .12345E +4 


With four character positions defined, only two are available for the exponent's 
digits. 


Example: 


PRINT[#] USING "’ + AHAB 12345 


returns + .12345E + a 


IMAGE 


e An IMAGE statement may be used with a PRINT[#] USING state- 
ment. 


e IMAGE can only be used as a program statement. It must be preceded 
with a line number and be the only statement on the line. 
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Since the IMAGE statement contains the format specifications that PRINT[#] 
USING uses, the line number of the IMAGE statement must be repeated after 
the PRINT[#] USING statement. 


Example: 


1 IMAGE + 5#.3#, 10X, —.5#4E 


20 PRINT[#] USING 10; A, B 


e Format specifications must be separated by commas. 
Example: 


10 IMAGE + 5#.3#,—.5#4E 
t 


e Variables following thePRINT[#]USINGstatement must be separated 
by commas. 


Example: 


20 PRINT[#] USING 10;A,B 
T 


e Each format specification corresponds to one printing field and con- 
trols the displayed format of the corresponding value. 


The format specification + 5#.3#, corresponds to variable A: 


10 IMAGE 7 OF SH 10X, — .5#4E 


20 PRINT[#] USING 10; A,B 
t 
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The format specification —.5#4E corresponds to variable B: 


10 IMAGE + 5#.3#, ee 


20 PRINT[#] USING 10; ae 


e A single format specification may be used to display more than one 
numeric value. 


Example: 


10 IMAGE + ###.4## 
20 PRINT[#] USING 10; 1.1, 1.23456, 123.1, 1 


will generate the following output: 


+ 1.100 
+ 1.235 
+ 123.100 
+ 1.000 


SCALE 


e ASCALE statement may be used with a PRINT[#] USING statement. 


e SCALE shifts the decimal point of a displayed value to the left or right 
of the original position. 


Format example: 
SCALE (1st argument, 2nd argument) 


1st argument indicates the number of places and the direction the decimal point 
should be moved to. 


e 1st argument may be any positive or negative integer in the range 
—128 to 127. 


If argument is positive, the decimal point is moved to the right. 
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If argument is negative, the decimal point is moved to the left. 
2nd argument represents the actual numeric value to be displayed. 
Example: 
Assume a long integer assigned to variable A&: 
A& = 12345678901234567 © 


and a string format specification (’’20&'’) that reserves 20 comma and digit posi- 
tions. 


Assume we want to move the decimal point three places to the left. 1st argu- 
ment of the SCALE statement will then consist of the minus sign — (shift to the 
left) and digit 3 (number of places): 


SCALE| ; 3, 


2nd argument is variable A&: 


SCALE| - 3,48 


The complete statement: 
PRINT[#] USING ''20&"';SCALE| -— 3,A&) 


will return: 12,345,678,901,235 


Execution procedure of the SCALE statement is as follows: 
1. the decimal point is moved three places to the left: 


1234567890 NSE 907 


2. the integer part is rounded off since no digit position has been reserved for the 
fractional part: 


12345678901234.567 
2840078901252 
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3. commas are inserted after every third digit left to the decimal point: 
12,345,678,901,235 
1 


REPEAT FACTOR 


A repeat factor is a positive whole number in the range 1 to 255 that may 
optionally precede specification characters and/or letters used with a PRINT[#] 
USING and/or an IMAGE statements. 

A repeat factor can precede 

1. a character: 


Example: 


PRINT[#] USING "G4. 3H" 


is equivalent to ###### 


PRINT[#] USING ''6&.3&''; 
if 


is equivalent to &&&&&& 


PRINT[#] USING '’6&,3/; 
| 


is equivalent to 3 RETURNs 


2. a letter: 
Example: 


PRINT{[#] USING "On." 


is equivalent to ZZZ 
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PRINT|[#] USING ''4#3X""; 
T 


is equivalent to 3 spaces 
A repeat factor may precede a string in an IMAGE statement. 
Example: 


100 IMAGE 12A,3X,2''***',12A 
I 


is equivalent to ****** (2*3 asterisks) 


LEADING ZEROS IN THE INTEGER PART OF NUMERIC DATA 


The display of leading zeros in the integer part of numeric data is controlled by 
the specification characters # and &, and specification letter Z. 


# replaces leading zeros with spaces: 


PRINT|[#] USING “HHHEE 000123 


returns: 123 


1 


& replaces leading zeros with spaces but also inserts commas after every third 
digit left to the decimal point. 


PRINT[#] USING "&&&&&&"’ mt 123456 


returns: 128,498 
1 


Z fills in unused positions with leading zeros: 


PRINT[#] USING “EELELI 123 


returns: 000123 
ttt 
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DECIMAL POINT 


e You may add to an integer expression a fractional part consisting of 
zeros by defining it in the format specification. 


Example: 


PRINT|[#] SING MH 2A 12345 will return 12349.00 


ROUNDING OFF OF A FRACTIONAL PART 


e If the number of digits of the fractional part to be’ displayed exceeds 
the number of reserved positions, the fractional part is rounded off to 
fit in the number of reserved positions. 


Example: 
Value to be displayed: 12.3456 
Specification: Ht att 
Displayed value: 12.346 


3456 is rounded off to .346 
e If the number of digits of the value to be displayed exceeds the 
number of digit positions specified to the left of the decimal point, the 
entire printing field is filled with exclamation points. 
CHARACTER PRECEDENCE 
If the specification characters & and # and specification letter Z are mixed 
together in one single format, execution of these specifications follows an order 
of precedence. The order is from left to right: 
& # Z 
Example: 


Specification: 22&## 


Value to display: 12345678901234567 
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Being the first to appear in the format, specification character & will have 
precedence of execution over the characters (##): commas will be inserted every 
third digit left to the decimal point: 


12,345,678,901,234,567 
tito 
INEQUALITY BETWEEN NUMBER OF RESERVED POSITIONS AND 
LENGTH OF VALUE TO BE DISPLAYED 


e If the number of reserved positions is greater or smaller than the cur- 
rent length of the value to be displayed, 


— the printing field of the integer part will be filled with exclamation 


— the number of exclamation marks will be equal to the number of 
reserved positions. 


Examples: 
Format specification: ##H 
tt 

Value to display: 1234567 
Actual display: POVNET 
Format specification: HR HH AH 

Mt 
Value to display: 1234567 


Actual display: POUTTENY! 
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INEQUALITY BETWEEN NUMBER OF FORMATS AND NUMBER OF 
VALUES TO BE DISPLAYED 


e If the number of values to be displayed exceeds the number of for- 
mats, all values will be displayed using the available formats. 


Example: One format for four values 


PRINT[#] USING "6A" A$, B$, C$, D$ 


—_ 


Variables A$,B$,C$,D$ will all be displayed using the same 6A format specifica- 
tion. 


Example: Two formats for four values 


PRINT|#] USING “6A, 3A’; A$, BS, C$, D$ 


Variables A$, B$, C$ and D$ will all be displayed using the 6A and 3A format 
specifications alternately. 


A$ (1st value) uses ‘’6A’’ (1st specification) 
B$ (2nd value) uses '’3A’’ (2nd specification) 


then, starting again from the beginning of the specification list: 


C$ (3rd value) uses '’6A’’ (1st specification of the list) 
D$ (4th value} uses ’’3A’’ (2nd specification of the list) 


DELIMITERS 
Commas are used to separate: 
1. Characters in a string format specification: 


"6A 5H 
if 


or in an IMAGE statement: 


IMAGE 6A,5# 
t 
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2. Values to be displayed: 


PRINT[#] USING '6A,5#';A$,B% 
t 


Semicolons are used to separate the string format specification from the values 
to be displayed: 


PRINT[#] USING '6A,54;A$,B% 
tT 


¢ When used with the PRINT[#] USING statement: 


Commas do not cause the cursor to move to the next tab field as 
they would with an ordinary PRINT statement. 


Semicolons, at the end of a numeric expression, will suppress a 
carriage return: 


PRINT[#] USING ''6A,5#'';A$ ,B%; 
t 


ERROR MESSAGES 


The following error messages can occur when a PRINT[#] USING statement 
is executed: 


UNDEF'D STATEMENT ERROR (Code number: 8} 


if the USING clause references an IMAGE statement that does not 
exist. 


?SYNTAX ERROR (Code number: 2) 


1. if the USING clause references a string variable or a string whose 
value is null. 
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2. if an IMAGE statement contains no specification. 


e In this latter case, the message indicates the line number of the 
PRINT{[#] USING statement, not that of the IMAGE statement. 


?TYPE MISMATCH ERROR (Code number: 16) 
if the type of an expression to be displayed does not match the type 
of its specification, i.e., string with numeric or vice versa. 
LITERAL SPECIFICATION 
e Literal specifications do not format. 


e They are used only to insert spaces, RETURNSs or strings into the 
formatted output. 


Letter X prints a space 
A slash character (/} prints a RETURN 
e A repeat factor may precede a literal specification. 
Example: 
4'"AB'’ 8X,67"*"" 2/ 


returns: PAB AB AR ' ie 


4 ''AB”’ strings in sequence (4’’AB’’) 
8 spaces (8X) 

6 asterisks (6’’*'’) and 

2 RETURNs (2/) 


e Strings must be enclosed in quotation marks. 
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ALPHANUMERIC DATA 


e Alphanumeric data may have their width and printing field defined 
by a string format specification. 


e Within the printing field, alphanumeric data may be left-, right- or 
center justified. 


The format specification may contain: 


1. a repeat factor: 


3A is equivalent to AAA 
6C is equivalent to CCCCCC 
aa is equivalent to RRRRRRRRR 


2. letters A, CorR 


A reserves a character position indicating additionally that the 
alphanumeric data will be left-justified 


Example: 


10 IMAGE 19A,19A,19A 

20 PRINT# USING 10;’’Last Name’’,’’First Name’’,’’Street 
Address’’ | 

30 FOR T=1 to 54: PRINT '’-'';: NEXT T 

40 PRINT[#] USING 10;’’Dieter’’,’"John’’,""1 Avenue Kleber’’ 

50 PRINT[#] USING 10;’’Roberts’’,’’Charly’’,’"1500 Broadway’’ 

60: PRINT[#] USING 10;’’Diliplan’’,’’Francois’’,’’605 Third Avenue’’ 

Avenue’’ 

70 END 


will generate the following output: 


Last Name First Name Street Address 
Dieter John 1 Avenue Kleber 
Roberts Charly 1500 Broadway 
Diliplan Francois 605 Third Avenue 
t tT tT 
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C reserves a character position indicating additional- 
ly that the alphanumeric data will be center- 
justified. 

Example: 


Changing the specifications as follows: 


10 IMAGE 19A,19C,19R 


will generate the following output: 


Last Name First Name Street Address 
Dieter John 1 Avenue Kleber 
Roberts _ Charly 1500 Broadway 
Diliplan Francois 605 Third Avenue 


R reserves a character position indicating additionally 
that the alphanumeric data will be right-justified. 


Example: 


Again: 


10 IMAGE ATIC 198 


will generate the following output: 
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Last Name First Name Street Address 
Dieter John 1 Avenue Kleber 
Roberts Charly 1500 Broadway 
Diliplan Francois 605 Third Avenue 


You may seldom use some of the PRINT# USING variations discussed in this 
chapter, but you will certainly use some quite often. A good nethod of checking 
your usage of a particular PRINT# USING statement is to examine the statement 
by itself in immediate mode and note its effects on various given variables. 


FILES 


Computers are extremely valuable because they can process large amounts of 
data efficiently. The INPUT statement and the READ, DATA statements perform 
input operations, but are significantly limiting when there is a large amount of 
data to process. Files provide a means of storing large amounts of data and mak- 
ing this data readily available to a program for processing. Here files, how files 
operate, how files are stored and file-naming conventions are introduced. 
e An orderly collection of all kinds of information (business letters, 
phone lists, statistics, etc.) stored on a device such as a disk is called a 
file. 
DEVICES 
There are two kinds of devices: 


1. character devices 


such as the keyboard and screen, serial port and printers, used to get 
information into or out of the system; 


2. block devices 


such as disk drives and other external memories, used to store and 
retrieve information. 


e Files can be stored only on block devices. 


DISK FILES 
Two standard operations you can perform on disk files are: 


1. reading information from disk files into memory using the LOAD 
command; 
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2. storing information from memory into disk files using the SAVE 
command. 
e One or more files can be stored on a single disk. 
e A maximum of ten files may be opened at one time. 
DEVICE NAMES 
A device is accessible either by: 


1. its device name or 
2. its volume name. 


A device name is up to 15 characters long: 


1; the first character is a period. 


Example: 
.D1 refers to disk drive #1 
.PRINTER refers to a printer 
-CONSOLE refers collectively to the 
tT keyboard and screen 


2. the second is a letter. 
Example: 


.D3 
.Printer12345 
GON SOLE10F5 


3. the rest can be either letters or numbers in any combination. 
¢ RESTRICTIONS 
1: not more than 15 characters; 


2. mo spaces or apostrophes; 
3. nota slash (/) or a number as a first character. 
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DISK DRIVES 


The built-in disk drive has the device name .D1 
The additional disk drives are named .D2, .D3, and .D4, respectively. 


LOCAL NAMES 


A local name is the name of one particular file. A local name is up to 15 
characters long:: 


1. the first character is a letter. 
Example: 


Receivable 
Payable 
Bills 
Payments 


2. the rest can be letters, numbers or periods in any combination. 


e Lowercase letters are automatically converted into uppercase let- 
ters. 


e RESTRICTIONS 


1. .not more than 15 characters 
2. no spaces or apostrophes 
3. not a number as a first character 


Example: 


Payment ' 1979 


Customer's 


are illegal local names. 
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VOLUME NAMES 
e Disks get their volume names when they are formatted. 


e A volume name will change as you insert or remove disks from the 
disk drive. 


e A PRINT PREFIX$ statement in immediate mode returns the 
volume name of the current prefix. 


A volume name is up to 15 characters long: 
1. the first character is a slash (/). 
Example: 


/ACCOUNTING1983 
/Receivables 
/CUSTOMERS 

if 


2. the second is a letter. 


Example: 


/ACCOUNTING1983 
/Receivables 
/ ¢ USTOMERS 


190 BUSINESS BASIC FOR THE APPLE III 


3. the rest can be letters, numbers or periods in any combination. 
e RESTRICTIONS 
1. not more than 15 characters; 
2. no spaces or apostrophes; 
3. not a period or a number as a first character. 


Example: 


/Customer Bills 


/Customer's Payment 


are illegal volume names. 


PATHNAMES 


e To read from or write to any given file, you must refer to it by its local 
name or pathname. 


e A pathname indicates the path to follow in order to find a given file 
whose name is part of the whole pathname. 


A pathname is either: 


1. a volume name followed by a series of local names or 
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2. a block device name followed by a series of local names. 
Examples: 
/Customers/Bills/Payments 
T I t 
/Customers is a volume name. 
Bills and Payments are local names. 
.D1/Bills/Payments 
,idt 
.D1 is a device name. 
Bills and Payments are local names. 
Pathnames may be up to 128 characters in length. 
e A pathname begins with a slash. 
¢ Local names are separated by slashes. 
Any given file can be referred to by using either: 
1. the block device name 


rad 1/Payments 


2. or the volume name 


/Customers/Payments 


Even if you have two files with the same local name, you can still tell them apart 
by their pathnames. 


/Customers/Bills/Roberts 
t 


/Customers/Payments/ Roberts 
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PREFIX$ 


e PREFIX$ is a modifiable reserved variable to which you may 
assign either a device name or a pathname. 


¢ The contents of the reserved variable PREFIX$ plus local name(s} 
is therefore assumed to be the complete pathname of a file. 


Using the variable PREFIX$ allows you to locate a file without the incon- 
venience of having to specify a complete pathname. 


You can set the prefix either to: 
1. the volume name 
Example: 


PREFIX$ =/Customers 
1 


or 
2. the device name 
Example: 


PREFIX$ =''.D2" 
t 


e The device name must be enclosed in quotation marks. 


This chapter presented some fundamental concepts of files, file storage, and file- 
naming conventions. Chapters 27 through 33 elaborate on the knowledge of files 
and devices gained in this chapter, in their more detailed discussions of files and 
file operations. 


24 


FILES/CREATING 
AND MANIPULATING 


Business BASIC contains several statements that are used to create and 
manipulate files-CREATE, CATALOG, DELETE, RENAME, LOCK, and 
UNLOCK. This chapter describes each statement and provides examples of their 
respective applications. The chapter also presents the twelve file types permitted 
in Business BASIC. 


Program files are created with the SAVE command. 


Catalog, Text and Data files are created with the 
CREATE statement. 


CREATE 


e The type of a file is determined at the time the file is created, either by 
assignment with a CREATE statement or by the first access method 
used after creating the file with an OPEN# statement. 


The CREATE statement is used to make: 
1. root directories or subdirectories; 


2. text files; 
3. data files. 


The type of file you want to create is specified by the following reserved words: 
CATALOG for directories or subdirectories files 


TEXT for text files 
DATA for data files 
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e To change the type of a file, you must first delete it before you recreate 
it. 


The CREATE statement format consists of: 


1. the pathname; 
2. a comma; 
3. the type of file. 


The pathname must be enclosed in quotation marks. 


Example: 


CREATE ‘'’/Memories/Part.One ' ’ TEXT 


¢ Quotation marks may be omitted only in immediate mode. 


The volume name and the local name must be preceded with a slash (/). 


Example: 


CREATE ’’/Memories/Part.One’’, TEXT 
| 


¢ The slash may be omitted if the prefix has been set to Memories. 


Example: 
PREFIX$ =/Memories 
CREATE Part one, TEXT 


The complete pathname is thus assumed to be the contents of the reserved 
variable PREFIX$ plus the local name as entered after CREATE, i.e., 


/Memories/Part.One 
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A comma must separate the pathname from the type of the file. 
Example: 


CREATE /Memories/Part.One, TEXT 
t 


The type is specified following the comma. 
Example: 


CREATE /Memories/Part.One, TEXT 
t 


e Text files contain only text in the form of characters and strings of 
characters. 


e Numeric information stored in text files is automatically converted in- 
to string form as if done by the STR$ function. 
FILES’ RECORD SIZE 
e A file record size defaults to 512 bytes. 


The record size is required only for random access files and must be from 3 to 
32767 bytes. 


A record size may be specified by any positive arithmetic expression following 
the file type: TEXT, CATALOG or DATA. 


Example: 


CREATE Memories, TEXT, 4096 
t 


creates a file named Memories having records of 4096 bytes each. 
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CATALOG 


The CATALOG statement is used to display a listing of a root directory or sub- 
directory specified by either: 


1.a volume name. 
Example: 


CATALOG /Memories 
I 


will display the names of all files in the disk root directory and the names of any 
subdirectories. 


2. a subdirectory 
Example: 


CATALOG ‘Memories Part.One 


will display the names of all files in that subdirectory. 


¢ CATALOG may optionally be abbreviated as CAT 


FILE TYPES 


A listing of a root directory or subdirectory displayed by CATALOG specifies for 
each listed file: 


— its size (number of blocks); 

— the time of its modification; 

— its EOF (standing for End Of File); 
— its type. 


The file types are: 


Type 


BASIC 


BINARY 


CAT 


DATA 
FONT 


FOTO 


PASCOD 
PASDTA 
PASTXT 

RESERV 

TEXT 


UNKNWN 
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Meaning 


BASIC program created with the SAVE com- 
mand. 


Assembly language. 

Root directory or subdirectory. 

CAT is the accepted abbreviation for 
CATALOG 

BASIC data. 


Binary information about a character set. 


Data representing a picture on a graphics display 
screen. 


Pascal code. 

Pascal data. 

Pascal text. 

Reserved for future types. 
BASIC Text. 


Standing for Unknown. BASIC data or text file 
opened but not written to. 


DELETE 


The DELETE statement is used to delete: 


1. local files; 


2. root directories; 
3. subdirectories. 


198 BUSINESS BASIC FOR THE APPLE III 


e A subdirectory may be removed only if all files in that directory have 
been deleted. 


e If the last file in a root directory is deleted, the empty root directory 
will still remain. 


Example: 


DELETE/ Stocks Purchases! France 


The file named France will be deleted but the empty root directory named Pur- 
chases will still remain. 


ERRORS WITH DELETE 


Errors that can-occur with nonvalid DELETE statements are: 


Cause Error Message Code 
One or more files are open. ?FILES BUSY ERROR 23 
Disk is write-protected. 2?WRITE PROTECTED ERROR 27 
Nonexistent local filename. ?FILE NOT FOUND ERROR 30 
Nonexistent subdirectory. ?PATH NOT FOUND ERROR 31 


Nonexistent volume name. 2VOLUME NOT FOUND ERROR 32 


Specified file is locked or ?FILE LOCKED ERROR 35 
Subdirectory contains files. 


RENAME 
RENAME is used to change the names of: 
. 1. volumes; 


2. subdirectories; 
3. local files. 


FILES/CREATING AND MANIPULATING 199 


RENAME must be followed by: 
1. the old pathname. 
Example: 


RENAME/Stock/Purchases/France 
t 


2. a comma. 
Example: 


RENAME/Stock/Purchases/France, 
t 


3. the new pathname. 
Example: 


RENAME/Stock/Purchases/France,/Stock/Purchases/Foreign 
I 


The above statement causes local file France to be renamed 
Foreign in the subdirectory Purchases stored in the disk whose 
volume name is Stock. 


¢ RENAME cannot be used to create a subdirectory file, only to 


rename an existing one. 


e To create new files and root directories, you must use the CREATE 


statement. 
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LOCK 


¢ LOCK protects a file from being inadvertently deleted, changed or 
renamed. 


The LOCK statement must be followed by the file or subdirectory name that you 
wish to lock. 


Example: 


LOCK /Purchases/ Suppliers: France 


LOCK/ Purchases: Suppliers/France 


e Volume names may not be locked. 


Example: 


LOCK Purchases 


is not a valid LOCK statement. 


When listed by a CATALOG statement, locked files are shown with an asterisk 
(*) to the left of their file type. 


Example: 
TYPE BLKS NAME 
*BASIC 00003 TRANSACTIONS 
*DATA 00015 PHONE.NUMBERS 
pote 00009 STATISTICS 


Transactions, Phone.Numbers and Statistics are locked files. 


e To protect all the files on a disk, a tab may be placed over the write- 
protect cutout on the upper right edge of the disk. 
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UNLOCK 


e A locked file may again be deleted, changed, renamed or saved after it 
is unlocked by the UNLOCK statement. 


The UNLOCK statement must be followed by the file or subdirectory name that 
we wish to unlock. 


Example: 


UNLOCK/Purchases/ Suppliers, France 


UNLOCK/ Purchases, Suppliers/France 


When listed by a CATALOG statement, unlocked files are shown without the 
asterisk (*) that had previously appeared to the left of their file type. 


Example: 
TYPE BLKS NAME 
BASIC 00003 TRANSACTIONS 
DATA 00015 PHONE.NUMBERS 
; FOTO 00009 STATISTICS 


You will use the file manipulation statements often while programming. Aside 
from creating files, you will be continuously manipulating directory and 
DELETE allows you to delete those files you no longer need. LOCK and 
UNLOCK offer you an easy means of file protection. 
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FILES/OPENING 
AND CLOSING 


The previous chapter explained how to create files and how to manipulate files 
within directories. In order to use existing files a program must first gain access 
to those files. How to gain access to a file with the OPEN# statement, and how to 
end access to a file with the CLOSE# and CLOSE statements are shown in this 
chapter. 


e A file must be opened with an OPEN# statement before it can be ac- 
cessed (used). 


OPEN# 
OPEN# must be followed by: 
1. A file reference number. 
Example: 


100 OPEN#1 
200 OPEN#3 
300 OPENT. 


2. The file's pathname. 
Example: 


100 OPEN#1, ’’Customers’’ 

200 OPEN#3, ’’Accounts’’ 

300 OPEN#45, ’’Bad.Debts’’ 
| 
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e In immediate mode, the pathname need not be enclosed in quotation 
marks. 


Example: 
OPEN#1 ‘’'/Customers’’ 
and 


OPEN#1 peustomers 


are both valid statements for immediate execution. 


3. The device name. 
Example: 


100 OPEN#7, '’.Console’’ 
200 OPEN#9, ’’.Printer’’ 
t 


e A period must precede device names. 
A comma must separate the file reference number from the pathname. 
Example: 


100 OPEN#1, ’’Customers’”’ 
200 OPEN#9, ’’.Printer’’ 
f 


e The file reference number may be any arithmetic expression from 1 to 
10. | 


e Only up to 10 files may be opened at the same time. 
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All Input/Output statements referring to a file while it is opened must specify the 
same file reference number that has been used to open the file by the OPEN# 
statement. 


Example: 


1010 OPEN#1, ’’Customers’’ 
| 
| program 
| 

2050 CLOSE#1 

2060 END 


‘CLOSE# uses the same file reference number—1-—as the OPEN# 
statement. 


1010 OPEN#9, ’’.Printer’’ 
| 


| program 


2050 CLOSE#9 
2060 END f 


e CLOSE# uses the same file reference number—9-—as the OPEN# 
statement. 


If an OPEN# statement contains the same file reference number as 
one presently in use, the first file using that file reference number is 
automatically closed. 


AS INPUT-AS OUTPUT 


e You may add to the OPEN# statement the two following options 
(clauses): 


AS INPUT to specify that the opened file is a read-only file. 
Example: 


100 OPEN#3 “ INPUT, ’’Statistics’’ 
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e You cannot write to the file Statistics after the AS INPUT clause 
has been executed. 


AS OUTPUT to specify that the opened file is a write-only file. 
Example: 


100 OPEN#5 as OUTPUT, ’'’Customers’’ 


e You cannot read from the file Customers after the AS OUTPUT 
clause has been executed. 


e But you may from or write to a file if no AS clause is specified. 


e All open files must be closed with either a CLOSES or CHOSE state- 
ment. 


e CLOSE# must always precede the END statement. 
Example: 


10 OPEN#1, ’’Customers’’ 
| 
| program 
| 
_. 50 CLOSE#1 
— 60 END 


CLOSE# nrust specify the same file reference number that has been used with 
the OPEN# statement. 


Example: 
OPEN#1 CLOSE#1 
OPEN#3 CLOSE#3 
OPEN#S CLOSES 


e Closed files must be reopened before they can be accessed again. 
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CLOSE# 


¢ CLOSE# closes the file whose number is specified after the number 
sign. 


e CLOSE closes all files that are open. 


Example: 


10 OPEN#1, '’Customers’’ 
20 OPEN#3, ‘’Statistics’’ 
30 OPEN#5, '’.Printer’’ 

| 


| program 
| 
— 70 CLOSE 
80 END 


e CLOSE closes the three files that have been opened by the three 
OPEN# statements in lines 10, 20, and 30. 


e All open files are also closed when a LOAD, CLEAR, NEW or RUN 
statement is executed. 


e The CHAIN statement does not close any files. 


If an OPEN statement in a program is incorrect, no file processing can occur. It is 
therefore important to decide beforehand what files your program must access 
and how they should be accessed. If the file will only be read in the program, the 
AS INPUT option should be added to the OPEN statement. If the file will only be 
written to, then the AS OUTPUT option should be specified. Remember to close 
all files opened in the program before ending the program. 


29 


FILES/READING FROM 
AND WRITING TO 


The first step in using a file in Business BASIC is to create the file (using the 
CREATE statement) and to make the file available for processing (using the 
OPEN statement). The next step in file processing—reading data from files and 
writing data to files—is covered in this chapter. File reading and writing is really 
the heart of data processing. Also presented here are methods of reading and 
writing text files and data files, and examples of errors and their causes that may 
occur during file processing. 


TEXT FILES 


e Text files and device files are accessed with the INPUT#, PRINT# 
and PRINT# USING statements. 


INPUT# 


e INPUT# reads a text file whose reference number is specified follow- 
ing the number sign. 


Example: 


INPUT#1 
I 


u—_ 


The arithmetic expression following the file reference number specifies the 
record number where reading should start. 


Example: 


iris 
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A comma separates the file number from the record number. 


INPUT#1,32 
I 


A semicolon must separate the record number from the variable list. 
Example: 


INPUT#1,32;A,B%,C$ 
t 


¢ INPUT# reads a line of text for each variable in its list of variables. 
A comma must separate each variable. 
Example: 


INPUT#1,32;A,B%,C$ 
t 1 


The variable list above consists of: 


— areal variable A 
— an integer variable B% 
— a string variable C$ 


¢ INPUT# automatically performs any necessary string to numeric type 
conversions, similar to the VAL function. 
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ERRORS WITH INPUT# 


Error messages displayed with nonvalid INPUT# statements are: 


Error message Cause 
?TYPE MISMATCH Record read is empty. 
?TYPE MISMATCH Record read does not con- 


tain any numeric data to 
match the call for a numeric 
variable. 


?7EXTRA IGNORED Number of fields exceeds 
number of variables. 


e You may open a directory as you would a text file by specifying the 
pathname. Like a CATALOG statement, INPUT# may then access 
the directory to return its data one line at a time. 


OUTPUT# 
¢ OUTPUT# directs screen output to a specified file. 


The file reference number following the OUTPUT# statement is identical to the 
file number specified in the OPEN# statement. 


Example: 


10 OPENT PRINTER’ 


20 OUTPUTS 


In the example above, all PRINT, LIST, TRACE and CATALOG statement out- 
put is sent to the specified device file. 


OUTPUT# 0 causes normal screen output to be resumed. 
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Business BASIC treats as a file any peripheral device that is connected to your 
Apple. 0 is the screen's file reference number. 


e The TRACE statement should not be used to debug programs using 
the OUTPUT# statement, unless you want the TRACE-generated line 
numbers sent to the file. 


ERRORS WITH OUTPUT# 


Error messages displayed with nonvalid OUTPUT# statements are: 


Error message Cause 

?FILE NOT OPEN ERROR No file open with the same 
reference number. 

?TYPE MISMATCH ERROR Specified file does not accept 
characters. 


PRINT# 
e PRINT# writes data to files. 
The file reference number is specified following the number sign. 
Example: 


PRINT#1;C$(1,1), LEFT$(C$(1,1)), A&,A&/12,B% 
ft 


An arithmetic expression may follow the file reference number to specify the 
record number where writing should start. 


Example: 


PRINT#1,$2;C8(1,1), LEFT S(C$(1,1)}, A&,A&/12,B% 
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A comma separates the file number from the record number. 
Example: 


PRINT#1,32;C$(1,1), LEFT$(C$(1,1}), A&,A&/12,B% 
t 


A semicolon must separate the record number from the expression list. 
Example: 


PRINT#1,32;C$(1,1), LEFT$(C$(1,1)),A&,A&/12,B% 
t . 


¢ PRINT# writes a line of text for each expression in its list of expres- 
sions. 


A comma must separate each expression or statement. 
Example: 


PRINT#1,32;C$(1,1), LEFT$(C$(1,1}), A&,A&/12,B% 
t t f T 


The variable and statement list following PRINT# consists of: 


a subscripted string variable C$(1,1) 

a string statement LEFT$(C$(1,1)) 
a long integer variable A& 

an arithmetic expression A&/12 

an integer variable B% 


e Before transfering the data from the expressions to the file, PRINT# 
automatically performs any necessary numeric to string type conver- 
sions, similar to the STR$ function. 


e The use of commas instead of semicolons is not recommended 
because files have no tab positions. The SPC specification may be 
used instead. 
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PRINT# USING 


*The PRINT# USING statement is used to control the format of out- 
put sent to files. 


The file reference number must follow the number sign. 


Example: 


PRINT#1 USING "' + .4EEEE’’;1.12345 
PRINT#2 USING '' — .4#4E;1.12345 
t 


e (For a complete description of the PRINT[#] USING statement, refer 
to Chapter 25 } 


DATA FILES| 
e The READ# and WRITE# statements are used to access data files. 


e Data file access is much faster than text file access because no data 
conversion is required. 


¢ The PRINT# and INPUT# statements are usually the most 
convenient statements for handling text input/output. 


READ# 


The READ# statement is used to read data from a data file whose reference 
number is specified following the number sign. 


Example: 


READE HAR BES 


You may add an optional arithmetic expression following the file reference 
number to specify the record number where reading should start. 


Example: 


READ#1,32;A%,B&,C$ 
\ 
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A comma separates the file number from the record number. 
Example: 


READ#1,32;A%,B&,C$ 
I 


e In this latter case, the record number is assigned to the first variable in 
the list. 


Example: 


READ AL SZ A 2 BES 


A% is assigned record number 32 
A semicolon must separate the record number from the variable list. 
Example: 


READ#1,32;A%,B&,C$ 
I 


e READ# gets a line of data for each variable in its variable list. 
A comma must separate each variable. 


Example: 


READ#1,32;A% B&C$ 
f 


The variable list following READ# consists of: 


- a real variable A% 
- a long integer variable B& 
- a string variable °° 


¢ READ# automatically performs any necessary type conversions for 
numeric data. 


¢ Howewer, type conversions are not automatically performed between 
numeric data and string variables (or vice versa). 
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READ# CONVERSIONS’ VALIDITY 


e The following table shows the READ# type conversions’ validity. 


Variable Data Result 

Real Real Valid 

Real Integer Valid 

Real Long Integer Valid} 

Real String ?TYPE MISMATCH ERROR 
Integer Real Valid? 

Integer Integer Valid 

Integer Long Integer Valid? 

Integer String | ?TYPE MISMATCH ERROR 
Long Integer Real ?0VERFLOW ERROR3 

Long Integer Integer Valid 

Long Integer Long Integer Valid 


Long Integer 


String 


?TYPE MISMATCH ERROR 


String Real ?TYPE MISMATCH ERROR 
String Integer ?TYPE MISMATCH ERROR 
String Long Integer ?TYPE MISMATCH ERROR 
String String Valid 


1. Possible loss of accuracy. 
2. From — 32767 to + 32768 
3. If greater than + or - E18 


WRITE# 


WRITE# sequentially writes the value of each expression in its expression list 
to a field in a data file whose reference number is specified following the number 
sign. 


Example: 


WRITER AR BES 
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You may add an optional arithmetic expression following the file reference 
number to specify the record number where writing should start. 


Example: 


WRITER AZAR BES 


¢ In this latter case, the value of the first expression is written to the first 
field in the specified record. 


Example: 


WRITER) 22:47 BECS 


The value of A% is written to the first field in the record number 
32. 


e If no record number is specified, records are written sequentially. 
A comma separates the file number from the record number. 
Example: 


WRITE#1,32;A%,B&,C$ 
if 


A semicolon must separate the record number from the variable list. 
Example: 


WRITE#1,32;A%,B&,C$ 
I 


¢ WRITE# writes one line of data for each expression in the expression 
list. 


A comma must separate each expression. 
Example: 


WRETERT SZ AR BECS 
1 
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¢ WRITE# performs no numeric to string type conversions while 
transferring information from the expressions to the file. It just writes 
a binary image of numeric data to the file. 


e An integer is written as an integer only if an integer variable is 
specified. 


Example: 


WRITE#1 a 


e If the integer is part of an arithmetic expression, the expression value 
will be written as a real number. 


Example: 


WRITE#1;1% + 1 
if 


The value of 1% + 1 will be written as a real value. 


. You should become familiar with the relative advantages and limitations of text 
files and data files. Both data and text files provide the capability of specifying a 
particular record number in the file to read or write to. Be aware, however, that 
because text files access must perform data conversion, it is much slower than 
data file access. 
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FILES/PROGRAM 
EXECUTION CONTROL 


Business BASIC provides a convenient method of determining when file process- 
ing has reached the end of the file. A program can use the EOF (end of file} 
reserved variable and the ON EOF# and OFF EOF# statements to avoid an error 
condition that would occur when trying to process beyond the end of an existing 
file. In addition to the end of file statements, this chapter also describes two file 
processing functions—TYP and REC~—and provides a sample program utilizing 
program execution control. 


e Program execution can be controlled with the ON EOF# statement 
and the reserved variable EOF. 


EOF 
(Standing for END OF FILE) 


When program execution continues past the end of a file, the reference number 
of the file causing the error is assigned to the reserved variable EOF. 


A regular PRINT statement will determine the affected file. 
Example: 
PRINT EOF 


When the reserved variable EOF is used with conditional statements ON... 
GOTO or ON ... GOSUB, EOF must be enclosed in parentheses. 


Example: 
ON (EOF) GOTO 1000, 2000, 3000 
t 


Program execution branches to line numbers 1000, 2000 or 3000 according to the 
value assigned to the variable EOF. 
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ON EOF# 
(Standing for ON and END OF FILE} 


e A number sign determines the form difference between the reserved 
variable EOF and the statement EOF#. 


EOF reserved variable 
Or statement 


e ON EOF# is very similar to the ON ERR statement, except that ON 
EOF# recognizes only one error code. 


e Unlike ON ERR, you cannot use the RESUME statement with ON 
EOF# statements. 


ON EOF# allows program execution to branch to a statement or statement list 
when execution continues past the end of a specified file. 


Example: 
10 ON EOF#1 PRINT ’’End of file #1”’ 
I 


file reference number 


10 ON EOF#1 put "'End of file #1'’ 


‘statement to execute 


If a program reads past the end of a file and ON EOF is not in effect, program 
execution halts and the ?0UT OF DATA ERROR message is displayed. 


Program example: 
10 REM *** ON EOF# statement : File Copy Utility Program *** 
Documents program. 


20 INPUT ’’Type source file name to be copied’’;L$ 
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Prints message and assigns the entered source file name to the string variable L$. 

e The file name must be a valid pathname. 
If the user enters, for instance, the console’s file name (.Console), the text entered 
through the keyboard would be printed on the copy file instead of the source file con- 


fents. 


The program would not terminate normally because block devices have no end of file 
marker. 


30 OPEN#1 AS INPUT, L$ 
Opens the source file named L$ as a read-only file whose reference number is #1. 
40 INPUT ’’Type the copy file name to print to’’;L$ 
Prints message and assigns the entered copy file name to the string variable L$. 
e The file name must be a valid pathname. 
If the user enters, for instance, a printer's file name, the source file contents would be 


printed on the printer. The program would not terminate normally because block 
devices have no end of file marker. 


50 OPEN#2 AS OUTPUT, LS 
Opens as a write-only file the copy file named L$ whose reference number is #2. 
60 ON EOF#1 PRINT ’’Copy completed’’ 


Displays the string: ‘Copy completed’’ when the end of file marker of file #1 is 
reached. 


70 CLOSE 
Closes both files (#1 and #2). 
80 END 


90 INPUT#1;L%: PRINT#2; L$: GOTO 90 
t 
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Sets a copying '’loop’’: 

INPUT#1;L$ reads one line at a time 
from source file #1 and 
assigns it to L$. 

PRINT#2; L$ prints line L$ to copy file #2 

GOTO 90 branches back to the beginn- 
ing of Line 90 until the end 


of file marker of file #1 is 
reached. 


OFF EOF# 
(Standing for OFF and END OF FILE) 
e The OFF EOF# statement cancels an ON EOF# statement. 


e After an EOF# statement is cancelled, if program execution continues 
past the end of a file, error messages will be displayed as before. 


OFF EOF# must be followed by the file reference number of the ON EOF# 
statement you want to cancel. 


Example: 
ON EOF#1 
| Lf 
| 
| 
OFF BOF# 


TYP 


(Standing for TYPE) 


¢ The TYP function is used to determine what type of data will be read 
from a particular file on the next access to that file. 
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The argument of the function, enclosed in parentheses, can be any 
arithmetic expression whose value indicates the file reference 
number. 


Example: 


TYP (6) 
t 


The number returned by the TYP function denotes what type of data will next be 
read from the specified file. 


For a data file, TYP returns the following values: 


Value Data type 

1 Real 

2 Integer 

3 Long Integer 
4 String 

F> File type 

0 Indeterminate 
8 Text 


e¢ Number 5 indicates an end of file marker whether it is a data or text 
type file. 


TYP may be used with a conditional statement. 
Example: 


ON TYP " GOSUB 1000, 2000, 3000, 4000, 5000 


6 is the file's reference number. 
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According to the value returned by the TYP function for file #6, program execu- 
tion will branch to one of the line numbers following the GOSUB statement. 


Example: 
Value Branching to 


1000 
2000 
3000 
4000 
5000 


ok WwW Nh — 


ERRORS WITH TYP 
Error messages displayed with nonvalid TYP statements are: 
Error messages Cause 
?7ILLEGAL QUANTITY ERROR Value of the argument of 
TYP is not between 1 and 
10. . 
?7FILE NOT OPEN ERROR File with the specified 


reference number is not 
open. 


REC 
(Standing for RECORD) 


e The REC function returns the current record number of a specified 
file. 
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The argument, enclosed in parentheses, can be any arithmetic expression whose 
value indicates the reference number of the specified file. 


Example: 


REC (6) 
t 


e If you use the INPUT# or READ# statements to access the catalog of 
a directory, REC returns the number of the line currently being ac- 
cessed. 


ERRORS WITH REC 
Error messages displayed following nonvalid REC statements are: 
Error messages Cause 


?ILLEGAL QUANTITY ERROR Value of the argument of 
REC is not between 1 and 
10. 


?FILE NOT OPEN ERROR File with the specified 
reference number is not 
open. 


Any programs that access files should be designed to use the EOF, ON EOF# and 
OFF EOF# methods of program execution control. Like the ERR, ON ERR and 
OFF ERR statements, the EOF statements only work if you take advantage of 
them when writing the program code. 
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Previous chapters contained examples of how statements, commands and func- 
tions operate in one of two execution modes —immediate mode or deferred mode. 
This chapter introduces a third execution mode —automatic mode. Automatic ex- 
ecution is a powerful and useful feature of Business BASIC that allows you to in- 


struct the computer to carry out a series of operations involving one or more pro- 
grams. 


e There are three execution modes: 
1. immediate mode through the keyboard using the PRINT command; 


2. deferred mode directed by programs stored in memory and started 
by a RUN command; 


3. automatic mode directed by programs stored in a text file and 
started by the EXEC command. 


EXEC 


(Standing for EXECUTE) 
e Sequential execution automatically directed by programs stored in a 
text file and started by the EXEC statement may contain conditional 
or inconditional statements. 


Assume we save on a disk three programs named: 


PROGRAM.ONE 
PROGRAM.TWO 


and 


PROGRAM.THREE, respectively. 
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The program below illustrates the use of the EXEC statement, in creating a text 
file whose name is PILOT. This program will contain statements to direct 
automatic and sequential execution of the three programs above. 


10 OPEN#1 AS OUTPUT, '’.D2/Pilot’’, TEXT 


Opens as a write-only file a text file named Pilot that will be saved on a disk contained 
in drive #2. 


20 INPUT ’’-’’; L$ 
Prints a prompt (hyphen) and assigns the entered text line to the variable L$ 
30 IF LEN(L$)=0 THEN 70 


Tests length of variable L$. If L$ =O (no text entered, i.e., only RETURN key 
pressed), program branches to line 70 (end of program). 


40 PRINT#1; S$ 

Prints the entered text line (L$) to the specified file (#1). 
50 GOTO 30 

Branches back to line 30 to get another text line. 
60 CLOSE#1 

Closes file number #1. 


70 END 


e Now let's RUN the program above and let's INPUT the following 


responses: 

Prompt User response Key pressed 
— RUN PROGRAM.1 RETURN 

_ RUN PROGRAM.2 RETURN 

— RUN PROGRAM.3 RETURN 


_ No response RETURN 
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e Notice that no response is given after the fourth prompt. L$ is 
therefore assigned a value of 0 and program is terminated at line 70. 


e The text file PILOT now contains the commands you may EXECute 
using the following statement: 


EXEC ‘''.D2/Pilot’’ 


EXEC simulates keyboard input by reading the contents of the PILOT file and 
acting on this as though you were typing the same commands from the keyboard. 


Execution proceeds as follows: 


1. Command RUN PROGRAM.ONE is displayed on the screen as 
though we just typed it on the keyboard. 


Command is then followed by the actual RUN of PROGRAM.ONE 


2. Command RUN PROGRAM.TWO is displayed, followed by the 
actual execution of PROGRAM.TWO 


3. Same procedure for PROGRAM.THREE 


e After the three programs’ execution is terminated, control is returned 
to the keyboard. 


e Control is also returned to the keyboard if: 


program execution is stopped by pressing CONTROL-C; 
a STOP statement is encountered; 

an error occurs; 

an end of file marker is encountered. 


Bwnr 


e A BASIC program containing the same statements 
Example: 
10 RUN PROGRAM.ONE 


20 RUN PROGRAM.TWO 
30 RUN PROGRAM.THREE 


will not give the same result. Execution of the first statement would clear the 
current program in memory, thus wiping out lines 20 and 30. 
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e EXEC accepts conditional statements. 
Example: 


RUN PROGRAM.ONE 
IF X<12 THEN RUN PROGRAM.TWO: ELSE RUN PRO- 
GRAM.THREE 


PROGRAM.TWO will be executed only if X has a value less than 12. If the X 
value is > 12, PROGRAM.THREE will be executed instead. 


e If an INPUT or GET statement occurs in a program, it takes its input 
from the next line of the text file, not the keyboard. 


If an EXEC file is called from a program, the EXEC statement must be followed 
by an END statement. 


Example: 


10 P$=''Pilot’’ 
20 EXEC P$ : END 
I 


e EXEC automatically opens the file it uses. This file is not considered 
to be one of the total of ten files that may be open at one time. 


e You may have a subroutine that you want to insert in other programs 
by using the EXEC command. The following steps show how to create 
that subroutine and utilize it via the EXEC command: 


1. Write the subroutine. 
Example: 


10 REM User-defined functions 

20 REM for rounding off to X decimals. 

30 REM ----------------- 
40 DEF FNA(X) =INT(X*10 + .5)/10 

50 DEF FNA(X)=INT(X*100 + .5}/100 

60 DEF FNA(X) = INT(X*1000 + .5}/1000 
70 DEF FNA(X) =INT(X* 10000 + .5}/10000 
80 END 


228 BUSINESS BASIC FOR THE APPLE III 
2. Save the statements (lines 40 through 70) in a text file 
named '’DECIMALS”’ in disk drive #2. 


Example: 


SAVE ’’.D2/DECIMALS’’ 


3. Write the calling program. 


Example: 


10 CREATE '’.D2/DECIMALS”’ ,TEXT 


Create is the statement 

.D2 is the disk drive number 
/IDECIMALS is the file name 

TEXT is the file type 


20 OPEN#1 AS OUTPUT, ’’.D2/DECIMALS’’ 
Opens as a write-only file a file whose pathname is .D2/DECIMALS 
30 OUTPUT#1 
Writes from the console to the file. 
40 LIST 40 TO 70 
Writes to the file Lines 40 through 70. 
50 CLOSE#1 
Closes file #1. 


60 END 
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4. RUN the above program to create a text file named DECIMALS containing 
Lines 40 through 70 of the above subroutine. 


e Now whenever you want to insert the subroutine into other programs, 
start by typing: 


EXEC '’.D2/DECIMALS’’ 


e To add the subroutine statements to the program in memory, the 
subroutine and program line numbers must not conflict with each 
other. 


Use automatic execution mode whenever you find yourself entering similar ex- 
ecuting instructions to the computer. Analyze the sequence instructions. Then 
use the EXEC statement to initiate automatic execution of the commands con- 
tained in the text file. 
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Chapters 32 and 33 present the two methods of accessing text or data files on a 
disk —sequential access and random (direct) access. This chapter details the se- 
quential method of accessing text and data files. Sample programs illustrate how 
to write to and read from both sequential text file and a sequential data file. 

® There are two ways to access text or data files on a disk: 


1. sequential access; 
2. random (direct) access. 


e Block devices, such as disks, allow either form of access. 


Sequential access starts at the beginning of the file and continues on towards 
the end. Each subsequent access begins where the last one left off. 


e To avoid accidental overwriting, do not open an existing file AS OUT- 
PUT for sequential access. 


e Instead, delete the old file, then open a new file AS OUTPUT using 
the same file reference number. 


SEQUENTIAL TEXT FILES 
Program Example: 


10 REM Writing with a PRINT# statement both string and numeric 
20 REM values into a sequential text file. 


Remarks to document program. 
30 ST$=''Sequential Text’’ 


Assigns a file name to the string variable ST$. 


40 OPEN#1 AS OUTPUT,ST$ 
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Opens the named file as a write-only file and assigns to it 
#1 as its reference number. 


50 FOR X=1 TO 10 
Sets a loop to execute ten times. 
60 PRINT#1;’’Text line number '';X 


Writes to the file the string ''Text line number’’ followed by the numeric value of 
X (1 through 10) automatically converted to a string. These two strings, con- 
catenated because of the semicolon: 


PRINT#1,;’’Text line number '';X 


will occupy one line of text in the file. 
70 NEXT X 

Branches back to line 50 (loop to execute ten times). 
80 CLOSE#1 

Closes file number #1. 


90 END 


e After the program is executed, the file will contain the following ten 
lines: 


Text line number1 
Text line number2 
Text line number3 


Text line number10 


e Notice that the X value is concatenated with the message. 
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The following program displays the contents of this file on the screen: 
10 REM Displaying with an INPUT# statement 
20 REM the contents of a sequential text file 
30 ST$='’Sequential Text’’ 
40 OPEN#1 AS INPUT,ST$ 
Opens the named file as a read-only file and assigns to it #1 as its reference number. 


50 ON EOF#1 GOTO 100 


Branches unconditionally to line 100 when the end of file marker is reached. (EOF is 
a reserved variable which stands for END OF FILE.} 


60 INPUT1;L$ 
Reads a line of text and assigns it to the string variable L$. 

70 PRINT#1 L$ 
Displays the line on the screen. 
The numeric value of X, which was previously converted to a string, will, this time, be 
converted back to a numeric value, and displayed with a space in front of it, as it is 
usually tone for any positive numeric expression. 

80 GOTO 40 


Branches back to line 40. 


INPUT# and PRINT# will keep on reading and writing, respectively, until the end of 
the file is reached. 


90 CLOSE#1 
Closes file number #1. 


100 END 
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SEQUENTIAL DATA FILES 


We may achieve the same result as above with a data file but the following dif- 
ferences should be noted: 


1. WRITE# is used instead of PRINT#. 
Example: 


Text files: PRINT#1;’’Text line number’”’ 
Data files: WRITE# “Text line number’’ 


2. commas are used instead of semicolons to separate values (string or 


numeric} 
Example: 
Text files: PRINT#1;’’Text line number’’:X 
Data files: WRITE#1;’’Text line number’’,X 
if 


3. Each WRITE# statement sends a complete line (field) to the file for each 
variable in its argument list. 


4. WRITE# does no conversion of numbers to strings. It uses the same format 
as numeric types. 


Example: 


WRITE#1,’’Text line number". 


The value of X will be coded in binary and placed on the field following the one 
where the string has been placed. 
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Program Examples: 


10 REM Writing with a WRITE# statement both string and 
numeric 

20 REM values in a sequential data file. 
30 SD$='’Sequential Data’’ 

40 CREATE SD$, DATA 

50 OPEN#1 AS OUTPUT,SD$ 

60 FOR X=1 TO 10 

70 WRITE#1;’’Data line number’’,X 
80 NEXT X 

90 CLOSE#1 
100 END 


10 REM Displaying with a READ# statement 
20 REM the contents of a sequential data file. 
30 SD$='’Sequential Data’’ 

50 OPEN#1 AS INPUT,SD$ 

60 FOR X=1 TO 10 

70 READELLS.N 


To read the contents of a sequential data file, READ# is used instead of IN- 
PUT: 


Text files: INPUT#,;L$ 
Data files: READ#I "L$,N 


READ#¥ reads the values of two fields: a string value assigned to string variable 
L$, and a numeric value assigned to numeric variable N. 


80 PRINT# L$;N 
t 


L$ and N will be displayed on one line because of the semicolon. 


90 NEXT X 
100 CLOSE#1 
110 END 
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PRINT#, INPUT#, WRITE# and READ# have all been used for se- 
quential access. 
Business BASIC automatically advances by one data or text item each 
time an expression is written or a variable read, so that each subse- 


quent access to the file will be positioned correctly. 


PRINT# or WRITE# statements cause one access for each expression 
in their expression lists. 


INPUT# or READ# statements cause one access for each variable in 
their variable lists. 


AS EXTENSION 


The AS EXTENSION clause is used with an OPEN# statement to 
write additional information at the end of a file. 


Example: 


OPEN#1 AS EXTENSION, Accounting 


With an AS EXTENSION clause, PRINT# or WRITE# statements write addi- 
tional information beginning at the end of the opened file, thus allowing the user 
to retain information previously saved in the file. 


Program Example: 


10 OPEN#1 AS EXTENSION, Accounting 
20 FOR X= 60000 TO 60100 

30 PRINT#1,’’Account.number’’;X 

40 PRINT#1;'’Pending’’ 

50 NEXT X 

60 CLOSE#1 

70 END 
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The comma that is usually placed after the file reference number in a regular 


OPEN#¥ statement: 


OPEN#1, Accounting 
t 


is moved to the right of the clause: 


OPEN#1 AS EXTENTION, Accounting 
t 


e The first access begins at the end of the existing file. Each subsequent 
access begins where the last one left off. 


Sequential file access is most efficient when a program must utilize every record 
in a file. The AS EXTENSION statement provides a convenient means of writing 


additional data into the end of a file. 
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FILES/RANDOM 
(DIRECT) ACCESS 


Sequential file access is used when every record in a file must be processed. 
Business BASIC provides a more efficient file processing technique when only 
one or a select group of records in a file will be processed —random (direct) ac- 
cess. Random file access allows a program to gain access to a particular record in 
a file for reading or writing operations. This chapter discusses the random access 
method of file processing and supplies sample programs that illustrate how to 
write to a random text file and how to read from a random text file. 

¢ Random access files are structured into records. 

e Each record is organized into fields. 


e -A field contains a sequence of bytes. 


e Each byte contains one character. 


RECORDS SIZE 
The record size of a new file is specified with the CREATE statement. 
Example: 


CREATE ‘File’ TET GA 


The number of bytes that can be stored in each record is 24 (23 characters plus 
one byte for the RETURN key). 


The default size of a record is set to 512 bytes. 


e In either case, you cannot change the record size of an existing file, 
whether it is specified or the default size. 
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RECORDS REFERENCE NUMBER 


By specifying a record reference number in the PRINT#, INPUT#, WRITE# or 
READ# statements, you indicate where each file access should begin. 


Example: 


PRINT#1,10;’’Text line’’ 
INPUT#1,10;L$ 
t 


#1 is the file reference number. 


PRINT#1,10;’’Text line’’ 
INPUTET COiL$ 


10 is the record number where access will begin. 


RANDOM DATA FILES 


Each data record must contain the same type values foll6wing each other in the 
same order. 


Example: 


pecord#l pocorn? pecordis 


String type Integer type Real type 


Record sizes evaluation should take in account the number of fields and the data 
type stored in each field. 


e If a READ# statement contains more than one variable or a WRITE# 
statement contains more than one expression, then the access will 
move from one field to the next. 


e If afield wont fit in the space remaining in the record, Business BASIC 
goes to the beginning of the next record. 
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e If a field is too big to fit in any record, the ?OUT OF DATA ERROR 
message will be displayed. 


The following table shows how many bytes are taken up by each 
data type. 


Data type Number of Bytes 
Real 5 
Integer 3 
Long Integer 9 
String 2 + string length 


RANDOM TEXT FILES 


e Since INPUT# always reads one line of text at a time, the following 
points should be remembered when random accessing a text file: 


1. each record must contain one line; 


2. the record size should be at least equal to the length of the longest 
line to be stored; 


3. the length of a line is equal to the number of characters plus one 
byte (character) for the RETURN key pressed at the end of the line. 


If a PRINT# statement writes more than one line, each is placed in the file in the 
order written, regardless of record boundaries. 


If an INPUT# statement reads more than one line, it assumes that each one 
begins where the last one left off, regardless of record boundaries. 


Program Examples: 


10 REM Writing with a PRINT# statement both string and numeric 
20 REM values into a random text file. 


Remarks to document program. 


30 CREATE ’’Random Text TEXT a4 


Sets the record size to 24 bytes. 
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40 OPEN#1 AS OUTPUT,’’Random Text’’ 

Opens the named file as a write-only file and assigns to it #1 as its reference number. 
50 FOR X=1 TO 10 

Sets a loop to execute ten times. X will take on the values 1 through 10. 


60 PRINT#L Text line number’’:X 


Each time through the loop, PRINT# writes to a different record, i.e, record #1 
through record #10. 


70 NEXT X 

Branches back to line 50 (loop to execute 10 times). 
80 CLOSE#1 

Closes file number #1. 
90 END 


e After the program is executed, the file will contain the following ten 
lines: 


Text line number1 
Text line number2 
Text line number3 
| 1 
| 
| 


Text line number10 


e Notice that the X value is concatenated with the string. 


10 REM Displaying with an INPUT# statement 
20 REM the contents of a random text file. 
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Remarks to document program. 
30 OPEN#1 AS INPUT,’’Random Text’’ 

Opens the named file as a read-only file and assigns to it #1 as its reference number. 
40 FOR X=2 TO 10 STEP 2 

Sets a loop to execute five times. X will take on the values 2, 4, 6, 8, and 10. 
50 INPUT#1,X;L$ 


Each time through the loop, INPUT# will read a different record number, 1.e., record 
#2, 4, 6, 8, and 10. Read values will be assigned to string variable L$. 


60 PRINT#1 L$ 
Displays read values. 
70 NEXT X 
Branches back to line 40 (loop to execute five times). 
80 CLOSE#1 
Closes file number #1. 
90 END 
e No record size has been specified in the above program because 
Business BASIC stored the record size with the file when the file was 
created with the CREATE statement. 
The random access file method is an efficient and convenient means of process- 
ing selected records in a file. It is extremely important to define correctly the 


characteristics of the file and its organization—the record size and record and 
field descriptions. 


APPENDIX 
BASIC Reserved Words 


The Apple III interprets every occurence of the following reserved words as a BASIC 
command, statement, or function. The only exception is when they are part of text strings 
enclosed in quotation marks. So keep reserved words out of your variable names. Watch 
especially for the short reserved words. 

You may enter reserved words with embedded blank spaces; the Apple II will 
compress the blanks out. 


INTEGER BASIC 


ABS END LET PDL SAVE 
AND FOR LIST PEEK SCRN 
ASC GOSUB LOAD PLOT SGN 
AT GOTO LOMEM: POKE STEP 
AUTO GR MAN POP TAB 
CALL HIMEM MOD PRINT TEXT 
COLOR= HLIN NEW PR# THEN 
CON IF NEXT REM TO 
DEL IN# NOT RETURN TRACE 
DIM INPUT NOTRACE RND VLIN 
DSP LEN OR RUN VTAB 
APPLESOFT® 


Reserved words in Applesoft® are tokenized: each word takes up only one byte of program 
storage. The tokens are listed with each reserved word below. They are also listed in 
numerical order in Appendix 1. 

Applesoft will not recognize the reserved word TO properly if: 


1. The first nonblank character before TO is the letter A, and 
2. One or more blanks separate the T and O. 


ABS (212) HTAB (150} REM (178} 
AND (205) IF (173} RESTORE (174) 
ASC (230) IN# (139) RESUME _(166] 
AT (197) INPUT (132) RETURN (177) 
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DOS 


(225} 
(140) 
(231) 
(189) 
(160) 
(187) 
(222) 
(131) 
(184} 
(133) 
(134) 
(128) 


(221) 


(159] 
(194] 
(129} 
(214) 
(190} 
(176) 
(171) 
(136) 
(146} 
(145) 
(144) 
(163} 
(142) 
(151) 
(147) 


INT 
INVERSE 
LEFT$ 
LEN 

LET 

LIST 
LOAD 
LOG 
LOMEM: 
MID$ 
NEW 
NEXT 
NORMAL 
NOT 


NOTRACE 


READ 
RECALL 


(211) 
(158) 
(232) 
(227] 
(170] 
(188} 
(182) 
(220} 
(164} 
(234] 
(191) 
(130] 
(157) 
(198) 


(156) 


(180) 
(165) 
(206) 
(216) 
(226) 
(141) 
(185) 
(161) 
(217) 
(186} 
(138) 
(135) 
(167) 


RIGHT$ 
RND 
ROT = 
RUN 
SAVE 
SCALE = 
SCRN( 
SGN 
SHLOAD 
SIN 
SPC| 
SPEED = 
SOR 
STEP 
STOP 
STORE 
STR$ 
TAB 
TAN 
TEXT 
THEN 
TO 
TRACE 
USR 
VAL 
VLIN 
VTAB 
WAIT 
XDRAW 
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(233) 
(219) 
(152) 
(172) 
(183} 
(153} 
(215} 
(210} 
(154] 
(223} 
(195) 
(169] 
(218} 
(199} 
(179} 
(168) 
(228} 
(192) 
(224) 
(137) 
(196) 
(193) 
(155) 
(213) 
(229) 
(143) 
(162) 
(181) 
(149). 


DOS commands are only considered reserved words if they are used in immediate mode 
or in a PRINT statement that begins with a Crri-D character (ASCII code 4). 


APPEND 
BLOAD 
BRUN 
BSAVE 
CHAIN 


CLOSE 
DELETE 
EXEC 
INIT 
LOAD 


LOCK 


MAXFILES 


MON 


NOMON 


OPEN 


UNLOCK 
VERIFY 
WRITE 


INDEX 


ABS (Absolute), 13-14. DATA, 127, 132-139, 195 
Absolute function (ABS), 13-14 DATA files, 197 
Addition, 58-63 Data input, 127-139 
Alphanumeric data Debugging, 100-112 
formatting of, 183-85 Decimal point, 178 
Arctangent function (ATN}, 23-24 Decimals, 1-2, 4 
Argument DEF FN (Defined function statement), 33-36 
definition of, 10, 13 Deferred execution, 12 
Arithmetic expressions, 11, 58-63 DEL (Delete statement), 105 
Arithmetic function, 13-22 DELETE, 193, 197-198 
Arithmetic operation precedence, 59, 69-70 Delimiters, 180-182 
Arithmetic operators, 58-63 Devices, 186-189 
Arrays, 122-126 DIM, 125-26 
AS EXTENSION, 235-36 ‘Dimensioning 
AS INPUT, 204-206 See DIM. 
ASC (ASCII function), 40, 47 Disk drives, 188 
ASCII function (ASC), 40, 47 Disk files, 186-188 
Assignment statements, 73-77 Display, 
ATN (Arctangent function), 23-24 See Screen display. 
Automatic execution DIV, 58-59, 63, 69 
of files, 224-227 Division, 58-63 


types of, 58-63 


BASIC files, 197 


BINARY files, 197 E (exponential notation), 2 
Block devices, 186-88, 191 ELSE statement, 90-99 
Branching, 78-99, 119, 120, 121 Empty string, 38 
conditional, 83-89 | END, 140, 149 
conditional vs. unconditional, 90, 91, 93, 96, 97, End of file, 220 
98, 99 EOF (End of File), 217-220 
Equal to (=), 68-71 
ERR, 108-112 
CAT files, 197 ERRLIN, 108, 111-112 
CATALOG, 193, 195-96, 201 Errors 
CHAIN, 140, 150-51 program, 100-112 
Character devices, 186-188 types of, 100-112 
Character precedence, 178 EXEC, 224-227 
Character string function(CHR$), 48-49 EXEC file, 142-145 
CHR$, 40 Execution 
CHR$ (Character string function), 40, 48-49 deferred, 12 
CLEAR, 140-142 immediate, 11 
CLOSE#, 204-06, 230-232 EXP (Exponentiation), 13, 15 
Columns Exponential notation, 2-3 
in arrays, 122-126 Exponentiation, 61 
Comma, 211-213 Exponentiation function (EXP), 13, 15 
uses of, 153-156 Expressions, 57-63 
Concatenation, 154 definition of, 56 
Conditional branching, 83-99 logical, 68-72 
Conjunction (AND), 68-72 relational, 68-72 
CONT, 140, 148-49 string, 64-67 
CONV (Conversion function}, 28-32 types of, 56 


CONV$, 28, 31-32 
CONV%, 28-32 


CONV&, 28-32 FILE LOCKED ERROR, 143, 198 
Conversion function, 28-32, 77 FILE NOT FOUND ERROR145, 151, 198 
COS (Cosine function), 23-25 FILE NOT OPEN ERROR, 223 

Cosine Function (COS), 23-25 Files, 186-194 

CREATE, 193-95, 228 automatic execution, 224-229 
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error messages and, 214 
error messages and, 198 
locking, 200 . 
opening and closing, 202-06 
program execution control, 217-223 
random access, 237-241 
reading from, 207-213 
record size, 195 
renaming, 199 
sequential access, 230-232 
sequential data, 233-236 
types of, 196-97 
unlocking, 201 
writing to, 207-216 
FILES BUSY ERROR, 198 
Floating-point division, 58-63 
FN (Function statement}, 33-36 
FONT files, 197 
FOR, 113-121 
Formatted output, 165-185 
FOTO files, 197 
FRE, 140, 142 
Function, 10-12 
definition of, 13° 
Functions 
conversion, 77 
string, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 
52 
Triginometric, 23, 24, 25, 26, 27 
type conversion, 28, 29, 30, 31, 32 
user-defined, 33, 34, 35, 36 


GET, 127, 131-132 
GOSUB, 79-89 

GOTO, 109, 225-227 
GOTO statement, 90-99 
Greater than (68-72 


HEX, 40 

HEX$ function, 52 

HOME, 152, 162-64 
Horizontal positioning, 161-62 
HPCS, 152 

HPOS, 161-62 


Identifiers, 5-6 

in lists and arrays, 123-126 
-IF...THEN GOSUB, 83-89 
IF...THEN statement, 90, 92, 96-99 
Illegal quantity error, 8-9 
ILLEGAL QUANTITYU ERROR, 223 
IMAGE, 172-177, 183, 184, 185 
Immediate execution, 11 
In string function (INSTR}, 49-50 
Inclusive disjunction (OR), 68-72 
Indent, 121 
Inequalities, 179 


INPUT, 127-139, 225-227 
data, 127-139 
INPUT#, 207-213 
INSTR, 40 
INSTR (In string function), 49-50 
INT (Integer), 13, 16, 18 
Integer division, 58-63 
Integer function (INT], 13, 16, 18 
Integer variables, 5-7 
Integers, 3-4 
arithmetic operations on, 58-63 
classification of, 1 
error messages in files, 214 
INVERSE, 152, 163-64 


Justification, 183-85 


KBD (Keyboard function), 87-89 
Keyboard function (KBD), 87-89 


Leading zeros, 177 
Left string function (LEFT$), 32, 40-42 
LEFT$ (Left string function), 32, 40-42, 211-213 
LEN (Length function), 32, 40-41 
Length function (LEN), 32, 40-41 - 
Less than (68-72 
LET (Let statement), 73-77 
Letters 
long integer variables and, 8-9 
variables and, 6-7 
Line numbers, 55 
List, 141 
LIST statement, 102-104 
Lists, 122-126 
Literal 
string, 64 
Literal specification, 182 
LOAD, 140, 144, 145, 151 
LOCK, 193, 200 
LOG (Logarithm), 13, 17 
Logarithm function (LOG), 13, 17 
Logical expressions, 68-72 
Long integer values, 30 
Long integer variables, 1, 4, 5-9 
error messages, 214 
Loops, 113-121 
branching and, 119-121 
nested, 117-121 


MID$ (Middle string function), 32, 40, 44-45 
Middle string function (MID$), 32, 40, 44-45 
MOD, 58-59, 62, 69 
Modes 

execution, 11 
Modifiable reserved variable, 121 
Modified reserved variables, 192 


Modulo division, 58-63 PREFIX$, 192, 194 

Multiplication, 58-63 PRINT, 152-153, 156-159, 162-163 
PRINT #, 210-213 
PRINT PREFIX$, 189 


Negation (NOT), 68-72 PRINT#, 225-227, 233-235 
Negative value decrements, 115 PRINT# USING, 165-177, 180-182 
Nested conditional branching, 97 Printing fields, 165-182 
Nested loops, 117-121 Program execution, 140-149 
NEW, 140-142 sequential mode, 90 
NEXT, 113-121 Program stack 
NEXT WITHOUT FOR ERROR, 118 POP statement and, 81, 82 
NORMAL, 152, 164 Program testing, 100-112 
Notation Programmed errors correction, 108-112 

exponential vs. conventional, 2-3 Punctuation, 153-154 
NOTRACE, 107 
Null string, 38 
Numbers, 1-3 Random access files, 237-242 
Numeric data, 1-2 Random access text files, 239-241 
Numeric expression, 56 Random data files, 238 
Numeric expression, 58-63 Random function (RND}, 13, 18, 21-22 
Numeric format specifications, 166-177 READ, 127, 132-139 
Numeric functions READ#, 212, 213, 238 

argument and, 10 real by default, 6 
Numeric variables Real numbers, 1-3 

input and, 127-139 Real variables, 5-7 

REC, 222-223 
Records 

OFF EOF#, 220 random access files and, 237-238 
OFF ERR, 108-112 random text files and, 239-241 
ON EOF#, 218-220 REDIM ERROR, 151 
ON ERR, 108-112 Relational expression, 56 
ON KBD (On keyboard function), 87-89. Relational expressions, 68-72 
ON...GOSUB, 85-89 REM statements, 101-102 
ON...GOTO statement, 90, 94-99 RENAME, 193, 198-199 
OPEN#, 193, 202-206, 225-236 Repeat factor, 176 
Operands, 57 RESERV files, 197 
Operator precedence, 69-70 Reserved variables, 108-112, 142, 152, 160-162, 192, 
Operators 217-220 

definition of, 56 modifiable, 121 
OUT OF DATA ERROR, 136-139 Reserved words, 7-9, 39 
Output RESTORE, 127, 138-139 

formatted, 165-185 RESUME, 108-112 
OUTPUT#, 209-213, 228 RETURN, 80-89 
OUTREC, 104 RETURN WITHOUT GOSUB ERROR, 82 
Overflow error, 2, 4, 30; 214 Right string function (RIGHT$), 32-43 _ 


RIGHTS (Right string function), 32-43 
RND (Random}, 13, 18, 21-22 


Parentheses Rounding off, 178 

in arithmetic operations, 60 Rows 

uses of in arguments, 10 in arrays, 122-126 
PASCOD files, 197 RUN, 140-149, 225-229 


PASDTA files, 197 
PASTXT files, 197 


PATH NOT FOUND ERROR, 198 SAVE, 140, 143, 193, 228 

Pathnames, 190 SCALE, 174-177 

POP, 81-82 Screen Display, 149-164 

Positive value increments, 115 Semicolon, 211-213 

Precedence uses of, 153 
arithmetic operation, 59 Semicolons, 181 


arithmetic operations, 69-70 Sequential access files, 230-232 


Sequential data files, 233-236 
Sequential mode, 90 
SGN (Sign function), 13, 19 
Sign function (SGN), 13, 19 
SIN (Sine function], 23, 25-26 
Sine function (SIN), 23, 25-26 © 
Single precision integers, 1, 3 
Slash character, 182, 189, 191 
SPC, 152, 158-159 | 
SOR (Square root function), 20 
SOR (Square root), 13 
Square root function (SOR), 13, 20 
ST$, 230 
. STACK OVERFLOW ERROR, 80 
Statements, 54 
assignment, 73-77 
definition of, 53 
STEP, 113, 115 
STOP, 140, 147-151 
STR$, 211-213 
STR$ (String function}, 46-47 
String comparisons, 64-67 
truth values and, 66-7 
String expression, 56 
String expressions, 64-67 
String format specifications, 165-177 
String function (STR$}, 46-47 
String functions, 40-52 
String variable conversion, 31 
String variables, 38-52 
Strings, 38-52 
definition of, 37 
empty, 38 
formatting of for printing, 154 
GET statement and, 132 
null, 38 
SUB$, 40 
SUB$ (Substitute string function}, 50 
Subroutines, 78-89 
Subscripted variables, 124-126 
Substitute string function (SUB$), 50 
Subtraction, 58-63 
Successive evaluation, 72 
SWAP, 73-77 
SYNTAX ERROR, 181-112 
Syntax errors, 101-112 


TAB, 152-157 
TAN (Tangent function), 23, 26-27 
Tangent function (TAN), 23, 26-27 
TEN, 40 
TEN function, 51 
TEXT, 195 
TEXT files, 197 
reading to, 207-213 
writing from, 207-213 
TO, 113-121 
TRACE, 106-107 
Trailing zeros, 2 


Transfer of control, 90-99 
Trigonometric functions, 23-27 
Truth values, 70-72 

string comparision and, 66-67 
Two-dimensional arrays, 122 
TYP, 220-222 
Type conversion functions, 28-32, 77 


Type mismatch error, 38, 77, 143, 145, 182, 214 


Unary minus, 61 
Unary plus, 61 
Unconditional branching, 90-93, 96-99 


UNDEFD STATEMENT ERROR, 79, 145, 181 


Unique elements 

lists and, 125, 126 
UNKNWYN files, 197 
UNLOCK, 193, 201 
User-defined functions, 33-36 


VAL (Value function), 31, 45-47 
Value function (VAL), 31, 45-47 
Value type, 5-6 
Variable type, 5-6 
Variables, 5-6 
in lists and arrays, 123-126 
input and, 127-139 
String, 37-52 
Vertical positioning, 160-162 
Volume name, 196 
Volume names, 189 
VOLUME NOT FOUND ERROR, 198 
VPCS, 152 
VPOS, 160-62 


WINDOW, 152, 159, 160 
WRITE PROTECTED ERROR, 198 
WRITE#, 214-216, 233-235, 238 


Zeros 
trailing, 2 
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